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7 1 GENERAL INFORMATION 
a i.1 Product Description 

8 
59 The TKSO Functional Diagnostic is intended to provide 
60 confidence in the basic functionality of the TKSO subsystem. As such, 
61 this should be the first host level diagnostic run on the TKS5O 
62 subsystem to veri*y installation, or for troubleshooting. Thro ut 
2 the program, emphasis is placed on isolating faults to the ield 
m4 Replaceable Unit (FRU). 
66 The program runs in standalone mode in conjunction with the 
67 PDP-11 family Diagnostic ‘Supervisor. In addition to host level 
o& testing. the program will implicitly invoke the TKS0's controller 
£9 resident Level 1 self-test microdiagnostics as well as explicitly 
~ invoking the controller’s Level 2 microdiagnostics. 
72 
73 
Le 1.2 Product Users And Uses 
76 
4 1. OMT testing 
i 2. As appropriate at various manufacturing facilities 
a 3. Field service personnel 
: 4. DEC customers who choose to provide their own maintainance 
as | 
86 
87 
. 1.3 Performance Goals 
90 This program will test up to four TK5S0's in a sequential 
91 manner . To run a full pass of the program, a scratch tape must be 
92 mounted in the transport and an operator must be present to perform 
93 manual intervention. However. appropriate subsets of the program can 
94 be run if there is no scratch tape, or the operator inhibits manual 
95 intervention tests. Furthermore, the first pass of the program will 
96 run in “quick verify” mode; i.e., a single iteration of each test will 
97 be performed. If multiple passes are specified by the operator, the 
98 second and all subsequent passes will run with each test executed with 
99 multiple iterations. First pass execution time will be approximately 
100 20 minutes while second pass execution time will be approximately 24 
es minutes. These pass times are based on a single unit under test. 
t+ 1.4 Pass/Fail Criteria 
104 
105 This program employs a bottom-up approach to testing the TK50; 
106 that is, Test 1 will attempt to verify the simplest level of 
107 host-to-controller communication as outlined in UQSSP. Each 
108 subsequent test builds upon the functionality already verified in 
199 previous tests. Hence, most errors encountered by the program will be 
110 considered as fatal device errors and the failing unit will be dropped 
111 from the rest of the test sequence. 
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112 

113 

114 

ir 1.5 Failsoft Goals 

1 

117 Unit specific problems will be handled by the program. CPU 
1186 faults (Ci.e., illegal traps or interrupts) will be handled by the 
119 Diagnostic Supervisor. System faults will be handled by the 
ose Diagnostic Supervisor, fault dependent. 
i122 
123 
rr 1.6 Restrictions 
126 Although basic read/write testing is performed, this program 
127 is not interested in measuring the subsystem's data reliability. 
i28 While recoverable data errors will be reported by the program, no 
129 attempt will be made to determine the subsystem's compliance with 
130 error rates. Unrecoverable data errors will be considered as fatal 
oot device errors, although the media could be the causative factor. 
133 
134 
135 1.7 Non-Goals 
136 
137 This program is intended to verify the gross functionality of 
138 host-to-controller communications, the integrity of the controller 
139 hardware, controller-to-drive | communication and the basic 
140 functionality of the drive. It is not intended as a verification of 
141 TMSCP protocol as implemented in the controller firmware, and no 
a testing of TMSCP commands is provided. 
144 
145 
a9 1.8 Runtime Environment Requirements 
Pt Runtime environment requirements include: 
rt 1. XXDP+ Diagnostic Supervisor 
oe 2. PDP-11 family CPU 

154 3. 28 KW memory 
155 
156 4. Console Terminal 

157 

158 5. Load Device 

159 

ty 6. 1 to 4 TK5O tape drives with controllers 

a 7. 1 to 4 TKSO scratch cartridges (optional) 

a. 8. LCP-5 UFD software Coptional) 














PARAMETER CODING MACRO YOS.02 Thursday 25-Jul-85 09:27 Page 5 SEQ S 


_ 2 USER INTERFACE 

1H 2.1 User Dialogue 

171 The following user dialogue will be provided at program 
172 start-time to allow the user to establish certain operational 
174 perameters of the program. 

175 

176 

a 2.1.1 Hardware Questions - 

179 This set of questions must be answered when the program is 
ioe first started. 

= CHANGE HARDWARE (L)? no default 

184 NUMBER OF UNITS (D)? enter number from 1-4 

185 UNIT x 

186 BASE ADDRESS (0) 774500? 

187 VECTOR (0) 224? 

188 UNIT NUMBER (0)? 

189 

190 

191 

aoe 2.1.2 Definition Of Hardware Questions - 

194 CHANGE HARDWARE - This question merely wants to know if you want to 
195 reconfigure the units under test. It must be answered “yes” on the 
197 | first pass of the program. 

po NUMBER OF UNITS - Enter the number of TK50‘s to be tested. 

roy BASE ADDRESS - Enter the I0 address of the unit to be tested. 

4 VECTOR - Enter the vector location to be used for the unit. 

oon UNIT NUMBER - Enter the MSCP-specified unit number for the unit. 

206 This entire set of questions will be repeated up to four times, 
od depending on the user's response to the “number of units” question. 
209 

210 

oe 2.1.3 Software Questions - 

213 Most of the optional functionality of the program is either 
214 handled automatically by the program or through established procedures 
215 provided by the Diagnostic Supervisor hence there are no software 
216 questions. 
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3 ERROR REPORTS 

Error reports will have two basic formats es described below. 
It is anticipated that, due to program partitioning, it will be 
possible to unambiguously define a single FRU as the cause of any 
error condition. 


3.1 Error Format 1 

This basic format will be used by all host level testing. 

CZTKA DVC FTL ERR eee ON UNIT 11 TST tt SUB ss PC: xxxxxx 
SA REG CONTENTS INCORRECT 

IN INIT SEQUENCE STEP #: n 

SA EXPECTED: yyyyyy SA RECEIVED: zzzzzz 

**e44FAILING FRU: CNTL 


In this example, the fields have the following meanings: 


- eee = discrete error number as defined by program 


- 11 = logical unit number assigned to unit-in-error during 
hardware questions 


- tt = test number during which error occurred 
- ss = subtest number 
- XXxXxxx = program location of error call 


- mn = step number of the UQSSP initialization sequence which 
detected the error condition 


- yyyyyy = expected contents of SA register for this step 


- 2Z2z2zzzz = actual SA register contents 


3.2 Error Format 2 


This format will be used for errors detected by the Level 2 
microdiagnostics. 


The DUP “Receive Date” command is used to monitor the status 
of the Level 2 diagnostic and to collect results. It is valid to 
issue a “Receive Data” command at any time after the Level 2s have 
been started. 


CZTKA DEV FTL ERR eee ON UNIT 11 TST 09 SUB ss PC: xxxxxx 
DRIVE ERROR 





SEQ 6 
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275 

ri #e44 LEVEL 2 MICRODIAGNOSTIC DUMP seeae 

278 Program Status Pertti? 

279 Drive Status asa 

280 Test Number sae 

281 Track Number eae 

282 TMSCP Command kee 

283 TMSCP Response Flag kee 

ve: TMSCP Unit Flags eeeeae 

286 Error Log (Tape Transfer Error) 

287 Error Format tok h 

288 Error Flags kek 

289 Event Code PT TTtT tT 

290 Error Retry Level kee 

291 Number of Reties tok & 

292 Position (Low Order) kekeeae 

293 Position (High Order hh hh 

294 Controller Status hk 

295 Drive Error Code eek 

296 Drive Flags kkk 

297 Track number TT 

298 Physical Block Number kkk hk ke 

299 Logical Block Number hbk 

300 Tape Count 0 fekok 

301 Tape Count 1 kak 

302 Tape Count 2 tek 

303 Drive State eT tT? 

304 Read/Write State eT TTT 

one Operation Flags eT TTT 

307 Blocks Written Channel 1 kkhbhe 

308 Blocks Written Channel 2 TT TTT 

309 Blocks Read Channel i ehhkhe 

310 Blocks Read Channel 2 kkk kh st 

311 Soft Write Channel i errr 

312 Soft Write Channel 2 keh keh 

313 Ecce Corrected Channel 1 kek hh k 

314 Ecce Corrected Channel 2 bekake 

315 Read Repositions Channel 1 kkk kad 

ste Read Repositions Channel 2 kkk hk 

318 

319 

320 

321 

4 3.2.1 Program Status - 

324 The program status word is only valid when read with a message 
325 number of 1. Upon an error, it will contain the status field of the 
326 TMSCP command which produced the error. Note that there are several 
327 diagnostic error codes which will be returned with a "ST_DIA’” 
os diagnostic status. 

330 If the test completed without a fatal or hard error, this word 
331 will be zero (Normal Successful Completion). 





SEQ 7 
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332 

333 

334 

a 3.2.2 Drive Status - 

337 The drive status word is only updated during the level 3 idle 

338 loop. Therefore, this word is only valid with ea message number of 2. 

339 This word will contain the status returned for the TMSCP "Get Unit 

340 Stetus” command. The unit flags for the "Get Unit Status” command 
341 will be in the Unit Flag Field. 

342 

343 

444 

aoa 3.2.3 Test Number - 

347 This byte will contain the number of the test during which an 
348 error occurred (only valid when message number is 1 and program status 
= is non-zero). This is only used for the Level 2 diagnostic. 

351 

352 

a: 3.2.4 Track Number - 

355 This byte will contain the track number of track most recently 
og written/read. Valid only for message number 1. 

358 

359 

+4 3.2.5 TMSCP Command - 

362 This byte will contain the opcode of the command in error 
363 Conly valid when message number is 1 and peeree status is non-zero). 
364 TMSCP opcodes used include WRITE, READ, REPOSITION, ONLINE, AVAILABLE, 
Le GET UNIT STATUS, and SET CONTROLLER CHARACTERISTICS. 

4 3.2.6 TMSCP Response Flags - 

369 This byte will contain the flag field of the TMSCP response 
370 packet of the command in error. It will only be valid when the 
371 command in error field is valid. 

372 

373 

374 

Ak, 3.2.7 TMSCP Unit Flags - 

377 This word will contain the unit flags for the "Get Unit 
378 Status” command issued during the Level 2 Idle Loop. From this word, 
379 the host program will be able to tell if the drive is write protected. 
see Unit Flags are only valid when Drive Status is valid. 

382 

383 

oa 3.2.8 Error Format - 

386 This byte will contain the format code for any hard error for 
387 which an error log was received. If no error log was received, this 
388 byte will contain 255 decimal (OFF Hex, 377 Octal, 11111111 Binary). 
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389 In this case, ell information which follows may be ingnored (i.e. 
ane it’s undefined). This is also only valid for message 1. 
1 
392 
393 
aoe 3.2.9 Error Flags - 
396 This byte will contain the flags from the error 1 is 
dd only valid when the error log format code is not equal to 2 $(10). 
399 
400 
yw 3.2.10 Event Code - 
403 This word will contain the event code of the error log. For 
404 more detail on this and other fields of the error log, please refer to 
405 “TKSO Magnetic Tape Sub-system Functions”, 11 January 1985, Ric 
406 Perron. 
407 
408 
409 
rey 3.2.11 Error Retry Level - 
412 This byte will contain the level field for a Tape Trensfer 
413 error. Only valid when Error Log Format Code is equal to Tape 
414 Transfer error. 
415 
416 
417 
ry 3.2.12 Number Of Retries - 
420 This byte will contain the retry field for a Tape Transfer 
421 error. Only valid when Error Log Format Code is equal to Tape 
422 Transfer error. 
423 
424 
425 
asf 3.2.13 Position - _ 
4 
428 This double word will contain the tape position for ea Tape 
429 Transfer error. Only valid when Error Log Format Code is equal to 
430 Tape Transfer error. 
431 
432 
433 
ase 3.2.14 Controller Status - 
436 This byte will contain the controller status code and is only 
pe ds valid when Error Log Format Code is equal to Tape Transfer error. 
439 
440 
aan 3.2.15 Drive Error Code - 
443 This byte will contain the drive error code as reported for a 
444 Drive error. Only valid when Error Log Format Code is equal to Tape 
445 Transfer error. 
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3.2.16 Drive Error Code - 
This byte will contain the drive error code as reported for a 


Drive error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 


3.2.17 Drive Flags - 


This byte will contain the drive flags. Only valid when Error 
Log Format Code is equal to Tape Transfer error. 


3.2.18 Track Number - 


This byte will contain the track number as reported for a Tape 
Transfer error. Oniy valid when Error Log Format Code is equal to 
Tape Transfer error. 


3.2.19 Physicel Block Number - 


This word will contain the physical block number for a Tape 
Transfer error. Only valid when Error Log Format Code is equal to 
Tape Transfer error. 


3.2.20 Logical Block Number - 


This byte will contain the logical block number for a Tape 
Transfer error. Only valid when Error Log Format Code is equal to 
Tape Transfer error. 


3.2.21 Tape Counts 0, 1, And 2 - 


These bytes will contain the tape counts as reported for a 
Drive error. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 


3.2.22 Drive State - 


This word will contain the drive state as reported in the 
error log. Only valid when Error Log Format Code is equal to Tape 
Transfer error. 





SEQ 10 


- 
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503 

aon 3.2.23 Read/Write State - 

ro 3.2.24 Operation Flags - 

508 This word will contain the Operation Fiags as reported in the 
509 error log. Only valid when Error Log Format Code is equal to Tape 
510 Transfer error. 

511 

5i2 

513 

ats 3.2.25 Controller Error Code - 

516 This word will contain the controller error code as reported 
517 for a Controller error. Only valid when Error Log Format Code is 
518 equal to Controller error. 

519 

520 

521 

ase 3.3 Get DUST Status 

524 The DUP “Get DUST Status” command can be issued to verify that 
525 the Level 2 diagnostics are still running. If the progress count 
526 received for two consecutive "Get DUST Status” commands is identical, 
527 then progress has stopped. The Level 2 diagnostic should be aborted 
528 and restarted. 

529 

530 

531 

ane 4 STOPPING THE LEVEL 2 DIAGNOSTIC 

534 The Level 2 diagnostic will never terminate itself. If it is 
535 desired to stop the test in progress, the host must issue the DUP 
536 “Abort Program” command. 

537 

538 

539 

ety 4.0.1 Blocks Written/Read - 

542 These double words will contain the current number of block 
+94 written/reed on a per channel basis. 

545 

546 

eae 4.0.2 Soft Write Errors - 

549 These words will contain a count of the number of soft write 
ty errors on a per channel basis. 

ast 4.0.3 ECC Corrected Error - 

554 These words will contain a count of the number of CRC 
555 miscompares on a data block during a read operation which were 
556 corrected by an ECC group. This count is maintained on a per channel 
557 basis. 

558 

559 
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| 
= 4.0.4 Read W/Reposition - 

2 
563 These words will contein ea count of the number of CRC 
564 miscompares on date blocks during ea read operations which could only 
565 be corrected by repositioning. That is, the ECC group could not 
re correct the read error for the date block without repositioning. 
568 
569 
art 4.0.5 Date Compare Error Information - 
572 This buffer erea will contain the following information: byte 
573 number in error, expected byte, and actual byte read. The first 10 
574 bytes will be the byte value expected. The next 10 bytes will be the 
575 byte value read (actual). The final 10 words will contain the byte 
A offset into the block in error (0 to 511). 
578 
579 
aot 4.0.6 Number Of Date Compare Bytes - 
582 This word will contain the number of bytes which miscompar-3 
583 in the block. 
584 
585 
586 
4 4.1 Diagnostic Error Codes 
589 In most cases, the Program Status Word will contain the error 
590 code returned by the controller firmware for the failing commend. In 
591 the case where an error is detected by the diagnostic and not by the 
592 firmware, the Program Status Word will contain a diagnostic status 
593 code. 
594 
595 The diagnostic status code is indicated by the “1F” nex status 
596 (ST.DIA : internal diagnostic status code - see MSCP specification). 
44 The subcodes will be as follows: 
144 4.2 Date Compare Error 
601 This indicates that the compare operation between the date 
602 pettern which was written and read failed. The data compare buffer 
603 erea will contain up to 10 bytes of the failing record, including byte 
604 location within the block, expected and actual data read. In 
oe addition, a total count of the bytes in error is available. 
607 
608 
tt 4.3 Controller Error 
611 This code will be set in response to the diagnostic internally 
612 receiving an error log indicating ea controller error. The controller 
oi error code field will contain the error code received. 
615 
616 
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4.4 Bed Peremeters Error 


This error code indicates that the parameters passed to the 
Level 2 diagnostic were invelid. 


4.5 Bed Pattern 


This subcode indicates an internal diagnostic error and should 
never be seen. 


4.6 Response Address Error 


This subcode indicates an internal firmware or diagnostic 
problem and should never be seen. 


4.7 Host Address Error 


This subcode indicates an internal firmware problem and should 
never be seen. 


4.8 Unknown Error Log 


This subcode indicates an internal firmware problem and should 
never be seen. 








SEQ 13 
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= S FUNCTIONAL DESCRIPTION 
6 
652 The following test descriptions all have certain points § in | 
653 common. All errors specified below will cause the unit to be dropped 
654 fom the test. unless specifically noted to the contrary. 
655 Furthermore, if the operator has chosen loop-on-error (LOE fleg set) 
656 scope loops will return to the ore anine of the test containing the 
657 failure. Exceptions to this will also be noted explicitly below. To 
658 understand the normal four step initialization sequence, refer to the 
659 UQSSP; the descriptions of tests that use this sequence will only 
a highlight unique features utilized by that specific test. 
662 
663 
— 5.1 Test 1 - Existence Verfication Test 
666 This test verifies the existence of the IP and SA registers by 
667 simply addressing them. Feilure here could be caused by incorrect 
668 address setting in the controller DIP switch, faulty controller logic 
ots or operator error in specifying base address. 
671 
672 
ye 5.2 Test 2 - SA Register Wrap Test 
675 This test commences the UQ-port initialization sequence, but 
676 sets the “WR” bit in its Step 1 response to the controller. Upon 
677 seeing this bit set, the controller should immediately enter the 
678 Diagnostic Wrap Mode. The program will now write and read a floating 
679 1 pattern to and from the SA register. The process will then be 
p44 repeated with a floating 0 pattern. 
682 A failure to echo the written data will result in a callout to 
683 the controller. If loop on error is set, the program will loop on the 
684 failing write and read. 
685 
686 
687 
= 5.5 Test 3 - Initialization Test And Power Up Microdiagnostics 
690 This test commences the UQ-port initialization sequence with 
691 interrupts disabled. It will verify that all step transitions occur 
692 within the alloted time, and that all host supplied information § is 
693 correctly echoec sy the controller. The program further verifies that 
pt no interrupts occur es a result of the step transitions. 
696 NOTE 
697 
698 The diagnostic will verify that interrupts do not 
699 occur at the vector assigned to the Unit Under Test 
700 (UUT). Inappropriate interrupts to an unassigned 
701 vector will be trepped by the Diagnostic Supervisor 
72 and will abort the program. 
703 
704 
795 It should be noted that, in accordance with the UQSSP, the 
796 controller’s power-up microdiagnostics will be executed during Step 1 
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707 of the sequence. Controller specific failure codes will be posted in 

708 the SA register by the self-tests; these could be correleted to a 

709 failing test number as an aid in troubleshooting. All failures in 

710 this test, however, will indicate the controller as the failing FRU. 

711 The specific codes will be 10 consecutive numbers in the range of 

Lk 600-699 (decimal); exact values have not been designated. 

1 

714 

715 

as 5.4 Test 4 - Vector And Interrupt Test 

748 Test 3 is repeated, this time with interrupts enabled. The 

719 checks of test 3 will also be performed, but now the program will also 

720 verify that an interrupt occurs at each step transition. No interrupt 

721 should occur at the end of step 4. Failures in this test will be 

ae attributed to the controller. 

724 

725 

Li 5.5 Test 5 - BR Level Test 

2 

728 This test insures that the TK50 cannot interrupt when the CPU priority 

729 is set to 7. The test goes through only the first step of the init 

730 sequence, since the controller will “hang” waiting for the interrupt 

731 acknowledge. Failures in this test will be attributed to the 

732 controller. 

733 

734 

735 

iz 5.6 Test 6 - Purge And Poll Test 

738 The initialization sequence will again be started by the host, 

739 but in step 3, the host will set the “PP” (Purge and Poll) bit. The 

740 first part of this test will simulate the UQSSP handshake for a bus 

741 edepter purge. The host will then request the controller to commence 

742 “poll” testing. The controller will now begin DMA activity in both 

743 directions to the host-identified communication area. The controller 

744 must end this test by leaving the communication area cleared and by 

a transitioning to step 4. The host will verify that the entire 
6 

747 communication area is cleared. (Note: At the start of this test the 

748 host will have filled the communication area with a non-zero data 

749 pattern.) Ring depth in this test will be set to the minimal 

750 velueCi.e.. one), reducing potential impact on host memory in event of 

751 failure.Failures encountered will again be attributed to the 

752 controller. 

753 

754 

755 

+ 5.7 Test 7 - Maximum Ring Buffer Test 

758 This test is similar to test 5, but it will utilize the 

759 maximum allowable ring depth as specified in UQSSP. This value is 

760 equal to 128 command and 128 response slots °* 32 bits per slot. 








ms 
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bs 5.8 Test 8 - Extended Address Test 

6 

766 The format of this test is similar to test 6, but the program 
767 will establish the communication area in the highest aveileble memory 
768 locations. This will allow testing of the upper six bits of address 
a logic on the controller board. 

771 NOTE 

772 

773 The ability of this test to comprehensively test the 

774 upper six bits of address is dependent upon memory 

775 size of the run-time system. This test will be 
776 completely bypassed if the system has only 28K words 
777 of memory. 
778 
779 
780 
781 
782 
Ls 5.9 Test 9 - Get DUST Status 
785 The Get DUST Status test will request and test the DUST status 
La of each unit under test for two specific cases: 
Lo 1. No commend modifiers set 
Ls 2. Illegal command modifiers set 
792 DUST status will be received from the unit under test after the 
793 program issues the Get DUST Status command available in DUP. The 
794 response packet received from the unit will be tested against a known 
795 good mask. If the expected and received bits do not match, excluding 
aoe veriable bits which will be discounted, an error will be reported. 
ae 5.10 Test 10 - Execute Level 2 Microdiagnostics 
800 This test will invoke, via the DUP Execute Local Program 
801 command, the controller resident Level 2 microdiagnostics. These 
802 tests ere aimed at establishing full communication between the 
803 controller and drive, as well as performing functional testing of the 
804 Grive. Refer to the Level 2 Microdiagnostic Functional Specification 
805 for ea detailed description of these tests. Test progress will be 
806 monitored from the host with the Get DUST Status command. Most errors 
+04 encountered in this test will be attributed to the drive. 
808 
809 While the Level 2 Microdiagnostics are executing, TMSCP 
810 commands will be rejected by the controller. The microdiagnostics, in 
811 conjunction with those portions of operational microcode utilized by 
812 them, will have responsibility for detecting and dealing with drive 
813 errors, including command timeouts and other communication failures of 
814 the drive. The host program will be responsible for monitoring 
815 overall execution of the microdiagnostics, via DUP commands, and 
816 detecting “hung” controller conditions, as well as any spurious 
ate interrupts generated by the subsystem. 
819 It is not possible for the Level 2 microdiagnostics themselves 
820 to guarantee that a scratch medium is mounted. They are reliant upon 
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oes host level software to protect user date from accide-tal destruction. 
823 The following sequence of tests will be performed twice, thus 
824 ensuring that both channels of the head receive equal testing. To 
825 reduce execution time, the entire sequence is performed first at the 
826 physicel BOT end of tape, utilizing head channel 1. The tape will 
827 then be positioned to physical EOQT end of tape and the entire sequence 
828 repeated, utilizing channel 2. Finally the tape is rewound and left 
829 at physical BOT. 
830 
831 
832 
a 5.11 Micro Test Descriptions 
sha 5.11.1 Test 1 - Simple Write/Read Test - 
837 This test will write several blocks of iF and 2F dats to the 
838 tape. The tape will be rewound and the blocks read back. The test 
839 will perform a compare operation of the data read back. This test 
iy verifies basic write/read capability. 
842 
842 
ee 5.11.2 Test 2 - Streaming Write/Read Test - 
846 This test will write approximately 20 feet of tape on a single 
847 track with blocks of various data patterns. The tape will be kept 
848 streaming throughout the write. The tape will then be rewound and all 
849 records are read, again while streaming. Data compare is performed on 
850 ell blocks. This test is intended to verify that the drive can write 
851 and read in a normal operationel. 
852 
853 
854 
ane 5.11.3 Test 3 - Thrashing Write/Read Test - 

6 
857 This test will again write 40 feet of tape on a single track; 
858 in this test delays will be inserted between the write blocks to force 
859 tape thrashing. After rewinding, the blocks will be read with forced 
860 delays bewteen reads. This test is intended to verify that tape 
861 tracking and tensioning are not affected by frequent direction 
862 changes. 
863 
864 
865 
oe 5.11.4 Test 4 - Peak Shift Test - 
868 Test 2 is repeated, this time using the worst case MFM peak 
869 shift patterns. This test is intended to verify that the write 
Any precomensation logic is functioning properly. 

i 
872 
873 
ha 5.11.5 Test 5 - Signal Sag Test - 
876 Ten blocks will be written with random data. The tape will be 


877 rewound, then moved back and forth 10 times. The tape will then be 
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878 positioned at logicel BOT for the recorded track and read back. This 
oa test is intended to detect self-erasure of recorded date. 
881 
882 
pn 5.11.6 Test 6 - Overwrite Test - 
885 One hundred blocks of date will be written on a single track, 
BBE using an “MW” date pattern. (A binary representation of the MW 
837 pattern is 1110111, although the ectual number of ones appearing in a 
888 coup is subject to further worst case testing by the Drive 
889 ngineering group.) The tape will then be rewound and rewritten. (The 
890 date pattern used for rewrite consists of 50 blocks of worst-case MFM 
891 followed by 50 blocks of random data.) The purpose of the test is to 
892 guarentee that the drive is capable of overwriting previously recorded 
$93 date. 
894 
zo 5.11.7 Test 7 - Track Access Test - 
897 Fifty blocks of date will be written on a single track. The 
898 tape will then be rewound, the head stepped to the next track and the 
899 same number of blocks will be written. This process will be repeated 
900 until all the tracks for that head have been written. The test will 
901 then reread the blocks from all data. This test is intended to verify 
902 tape tracking and the ability to successfully record and retrieve data 
903 on adjacent tracks. 
904 
905 
906 
p= 4 5.11.8 Test 8 - Positioning lest - 
909 The primary purpose of this test is simply to perform the 
910 correct positioning of the tape for what is to follow; that is, the 
911 first time through the test sequence, this test will cause the tape to 
912 be positioned at the physical EOT end of tape, thus allowing the 
913 entire test cycle to be repeated for testing the drive's operation 
914 with channel 2 of the head. Upon second entry to this test, it will 
915 cause the tape to be positioned back at physical BOT. The test will 
916 include e coarse watch-dog timer to guard against a “hung” drive 
917 condition. 
918 
919 
920 
of 5.12 Retry Algorithms 
923 The Level 2 microdiagnostics will make extensive use of 
924 portions of the controller's operational microcode, including retry 
925 algorithms intended to recover from date errors. Please refer to the 
926 TK Microcode Functional Specification for detailed descriptions of 
= the retry algorithms. 

a 
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940 -TITLE PRGGRAM HEADER AND TABLES 
pa -SBTTL PROGRAM HEADER 
969 000000 -ENABL ABS.,AMA 
970 002000 2 s 
971 -NLIST BEX 
973 
974 002000 BGNMOD 
975 
976 3+ 
977 ; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
po. ; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
980 
oan 002000 POINTER BGNDU,ERRTBL .BGNRPT 
i 990 
991 002000 HEADER CZTKA,B,0.120.,0,PRIOO0 
002000 LSNAME:: ;DIAGNOSTIC NAME 
002000 103 -ASCII /C/ 
002001 132 -ASCII /Z/ 
002002 124 -ASCII /T/ 
002003 113 -ASCII /K/ 
002004 101 -ASCII /A/ 
002005 000 -BYTE 0 
00 000 BYTE 0 
002007 000 -BYTE 0 
002010 LSREV:: 3 EVISION LEVEL 
002010 102 -ASCII /6/ 
002011 LS$DEPO:: 30 
002011 060 -ASCII /0/ 
002012 L$UNIT:: ;NUMBER OF UNITS 
002012 000000 -WORD 0O 
002014 LS$TIML:: ;LONGEST TEST TIME 
002014 000170 WORD 120. 
002016 L$HPCP:: sPOINTER TO H.W. QUES. 
002016 047664 D L$HARD 
002020 L$SPCP: sPOINTER TO S.W. QUES. 
002020 090000 Be 
002022 LSHPTP ;PTR. TO DEF. H.W. PTABLE 
002022 002202 -WORD LSHW 
002024 LSSPTP:: sPTR. TO S.W. PTABLE 
002024 000000 . WORD 0 
002026 L$LADP: : ;DIAG. END ADDRESS 
002026 062130 . WORD L$LAST 
002030 LSSTA:: sRESERVED FOR APT STATS 
002030 000000 . WORD 0 
002032 L$CO:: 
002032 000000 . WORD 0 
002034 LSDTYP:: ;DIAGNOSTIC TYPE 
002034 000000 . WORD 0 
002036 LSAPT:: ;APT EXPANSION 
002036 000000 .WORD 0 
002040 LS$DTP:: ;PTR. TO DISPATCH TABLE 
002040 002124 . WORD L$DISPATCH 
002042 L$PRIO:: ;DTAGNOSTIC RUN PRIORITY 
002042 000000 . WORD PRIOO 


PROGRAM HEADER AND TABLES 


PROGRAM HEADER 


992 





LSENVI:: 
LSExXPi 
LSMREV:: 

-BYTE 

-BYTE 
LSEF:: 

. WORD 

.WORD 
L$SPC: 

. WORD 
LS$DEVP:: 

- WORD 
LSREPP: 

.WORD 
LSEXP4:: 

. WORD 
LSEXPS:: 

. WORD 
LSAUT:: 

. WORD 
L$DUT:: 

. WORD 
L$LUN:: 

.WORD 
LS$DESP:: 

. WORD 
L$LOAD: : 

EMT 
LSETP:: 
L$ICP:: 
LSCCP:: 

. WORD 
L$ACP:: 

. WORD 
LSPRT:: 

. WORD 
L$TEST:: 

. WORD 
L$OLY:: 

. WORD 
LSHIME:: 

. WORD 
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sFLAGS DESCRIBE HOW IT WAS SETUP 


0 
° sEXPANSION WORD 

;SVC REV AND EDIT ¢@ 
CSREVISION 
CsEDIT 

:DIAG. EVENT FLAGS 
0 
0 

; POINTER TO DEVICE TYPE LIST 
LSDVTYP 

:PTR. TO REPORT CODE 
L$RPT 
0 
0 

sPTR. TO ADD UNIT CODE 
0 

;PTR. TO DROP UNIT CODE 
L$DU 
‘ sLUN FOR EXERCISERS TO FILL 

s;POINTER TO DIAG. DESCRIPTION 
L$DESC 
. sGENERATE SPECIAL AUTOLOAD EMT 

$L 

sPOINTER TO ERRTBL 
LSERRTBL 

PTR. TO INIT CODE 
LS$INIT 

sPTR. TO CLEAN-UP CODE 
L$CLEAN 

:PTR. TO AUTO CODE 
LS$AUTO 

;PTR. TO PROTECT TABLE 
L$PROT 

;TEST NUMBER 
0 
i sDELAY COUNT 

;PTR. TO HIGH MEM 
0 





SEQ 20 


PROGRAM HEADER AND TABLES 


DISPATCH TABLE 





103 


132 
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-SBTTL DISPATCH TABLE 


3*? 


; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


LSDISPAT 


L$DESC:: 


DISPATCH 10. 
-WORD 10 
CH:: 

-WORD Ti 
-WORD T2 
-WORD 13 
-WORD T4 
-WORD T5 
-WORD T6 
-WORD T7 
-WORD T8 
-WORD 19 
-WORD T10 
DESCRIPT <CZTKABO TKSO FUNCTIONAL > 


-ASCIZ /CZTKABO TKSO FUNCTIONAL/ 
-EVEN 





SEQ 21 








om «§ 
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=e -SBTTL DEFAULT HARDWARE P-TABLE 
1020 Pre 
1021 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
1022 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
a ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TASLES. 
1025 
1026 002200 BGNHW DFPTBL 
002206 000003 . WORD L10000-L $HW/2 
002202 LS$HW:: 
— 002202 DFPTBL:: 
1033 002202 174500 -WORD 174500 ;TKIP BASE ADDRESS 
1034 002204 000260 -WORD 260 ; VECTOR 
1035 002206 000000 -WORD 0 :T/MSCP UNIT NUMBER 
1036 002210 ENDHW 
002210 L10000: 








~~ — 


PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 


1046 002210 
002210 
002212 
002212 

1047 


1054 
1055 002212 
002212 


1056 
1057 002212 
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-SBTTL SOFTWARE P-TABLE 


; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 

-WORD L10001-L$SW/2 
L$SW:: 
SFPTBL 

ENDSW 
L10001: 

ENDMOD 





SEQ 23 


PROGRAM HEADER AND TABLES 





SOFTWARE P-TABLE 


1102 002212 


1106 
1109 002212 
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- TITLE GLOBAL AREAS 
-S6TTL GLOBAL EQUATES SECTION 


; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 


EQUALS 
; BIT DIFINITIONS 


; 
BITi5== 100000 
BIT14== 40000 
BIT13== 20000 
BITi2== 10000 
BIT1i== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


; 

BIT9== BITO9 
BIT8== BITOSs 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITOS 
BIT2== BIT02 
BITi== BITO1 
BITO== BITOO 


; EVENT FLAG DEFINITIONS 
;  €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
; 


; BIT POSITION IN SECOND STATUS WORD 


EF .START== 32. ; €100000) START COMMAND WAS ISSUED 

EF .RESTART== 31. ; (040000) RESTART COMMAND WAS ISSUED 
EF .CONTINUE== 30. ; (020000) CONTINUE COMMAND WAS ISSUED 
EF .NEW== 29. ; (010000) A NEW PASS HAS BEEN STARTED 


EF .PWR== 28. ; €004000) A POWER-FAIL/POWER-UP OCCURRED 


; PRIORITY LEVEL DEFINITIONS 





GLOB 


-— 


AL AREAS 
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GLOBAL EQUATES SECTION 





PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3S== 140 
PRIO2== 100 
PRIOi== 40 
PRIOC== 0 
;OPERATOR FLAG BITS 
; 

EVL== & 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 


PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 





SEQ 25 


GLOBAL 


AREAS 
GLOBAL EQUATES SECTION 


-— 
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000001 
000002 
000004 
000010 
000020 
000040 





A ten RR A ep em 
¢ 9066666666646 £6 66 6666 60406 606066 604646 6464066042008 60464040200 000060048 


sLUN. BLOCK OFFSETS 
THESE LITERALS ARE USED . te OFFSETS INTO THE LUNBLK, WHICN 
; IS POINTED TO THROUGHOUT THE PROGRAM BY R4. 


; 
of 2SS6 66066666 £6 646464660 06 68 6646466660 066 6060006404646 440040606006 4000046 084% 
os 85S 068004664646 046466 64646 4600446466 £6466 0460460640466 046040060060 04 02408046006 


TKIP == 0 ;TKIP REGISTER ADDRESS 
TKSA ss 2 ;TKSA REGISTER ADDRESS 
TKVEC == 4 ;TK INTERRUPT VECTOR 
MSCPUN == 6 ;T/MSCP UNIT NUMBER 


;SAVE LOCATION FOR IP CONTENTS 
s;SAVE LOCATION FOR SA CONTENTS 
;BIT-SPECIFIC MEANINGS AS DEFINED BELOW 


g § O92440046044064 464444046 6404648 64606646446 6664604064064 0064460466446 6464446406002 464 
gp ROSE S4 44 OO404046600466 66 6400464464066 46 640444006464 46464646 4608446484646 64 646844408 


: 
;LUNFLG 

3 THIS WORD IN LUNBLK IS USED TO CONVEY VARIOUS INFORMATION 
$ IN A BIT-SPECIFIC MANNER. BITS USED BY THE PROGRAM ARE 

5 DEFINED AS FOLLOWS. 


a 
$s 9400040046566 464646460 60464062006 6606466646446 066046646646 46006444464604464 4644644 
$f SSESSERESSEKEKSESASSSASEKAASCEACESEEKEKEEEEREKEEEEEEKEKREEEREREEEEELS 


DRPFLG == BITO 3=0 UUT AVAILABLE FOR TEST 

:=1 UUT HAS BEEN DROPPED 
INTFLG == BIT1 s*1 EXPECTED INTERRUPT OCCURRED 
BRFLAG == BIT2 :*1 INTERRUPT PRIORITY TEST 
DUPFLG == BITS ;=1 DUP COMMAND 
ABTFLG == BIT4 ;=1 ABORT LOCAL PROGRAM 
CNTRLC == BITS :=1 RETURN TO ORS 





SEQ 26 





GLOBAL AREAS 


1157 
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GLOBAL EQUATES SECTION 


900200 





& fF O9OS 68 666066 666666 66666644666 260606646 66060604606646066 0060604046466 40604646 60488 
oF 92660460666 6666 64466566 06606666 066 6666646646 6600606646 46460666464046068440688 


; 
;UQ-PORT EQUATES 


sREAD-ONLY BITS 


B.S1i 


ow 
w 
tw 


secre oe 
SSneed LY 


THIS SECTION DEFINES THOSE LITERALS USED 

BY THE DIAGNOSTIC IN THE UQ-PORT PROTOCOL. 
IN GENERAL THEY HAVE BEEN FORMED BY USING 
THE TWO LETTER MNEMONIC DEFINED IN UQSSP, 
PRECEDED BY “B.“ INDICATING THEY ARE BITS. 


£ FSS SSSSSSESNSSSSASHHSSASARHSNSACKS}S ESSA AKSESAKNSSAAEESAKRE LEAL EEEES 
os SSSSSESSACSASK SAS ASSSSKASLASSASESSNSSSAALAS*SSA SHAS ARAL ALALELALEL REE 


BIT11 
BITi2 
BiT1i3 
BIT14 


BITisS 
BIT10 
BIT9 
BITS 
BIT7 
BIT6 


;WRITE-ONLY SITS 


B.PP 
B.WR 
B.LF 
B.PI 
8.GO 


BITiS 
BIT14 
BIT1 
BITO 
BITO 


sREAD/WRITE BITS 


B.1E 


BIT? 


;STEP 1 
;STEP 2 
;STEP 3 
;STEP 4 


sERROR INDICATION 

3=0 VECTOR IS HOST SETTABLE 

s=1 SUPPORTS 22 BIT HOST BUS 

:=1 SUPPORTS ENHANCED DIAGNOSTICS 
:=1 SUPPORTS ODD BUFFER ADDRESSES 
3=1 SUPPORTS ADDRESS MAPPING 


sPERFORM PURGE AND POLL TESTS 
sENTER DIAGNOSTIC WRAP MODE 
sLAST FAIL REQUEST 

sENABLE ADAPTER PURGE INTERRUPTS 
:GO BIT - START RUNNING 


;STEP X-TION INTERRUPT ENABLE 


SEQ 27 


— 





GLOBAL AREAS 
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GLOBAL EQUATES SECTION 


SF OOOO 06 66466 06 66466 66666046646 66664646 64640646464646402066064040686 2646460660040 000808 
5 OO 6S 66 6666 6464646 64666 0666666464646 66 6606660066 46464646 0600646060000 6008808 088 


GENERAL PURPOSE EQUATES 


026646666466 466666666 6666 6466666 6666666600666 4606408666006 642R4R FR OE EEE 


; 
; 
: 
2 
; 
Ss OO S666 4606 046 6646466464666 6466640664646 6460646406400 4644644608480068 EERO EES 


; 
vEC4 == 2 sVECTOR FOUR - NXM TIMEOUTS, ETC. 


RCSR ss 177560 ;TERMINAL RECEIVE CONTROL/STATUS REGISTER ADDRESS 
RBUF ss 177562 ;TERMINAL RECEIVE BUFFER ADDRESS 





SEQ 28 
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GLOBAL EQUATES SECTION 

1210 oF OOO 26646666666 6626 66 6666066606 666464648 24644 EEEEEEEEEEEEERAEEE REEDS 

ect Sf OOO0206 64666 66066646646 6666046 66 6660660660646 464666 0646064646064646606064046446406464068 

121 $ 

ret sMEMORY MANAGEMENT EQUATES 

H 

1215 5 § OS 646 464646466 646 F464 6ESESSEEAAESSEASCASEERASLESSEASSAAEKELALERELALERELELSE 

a 5 5 OO 8666466464666 6446666646406 0646 64646 4SESEEEEEKEEEAAALARELEKEEAEELEEELED 

i21i 

1218 177572 MMUSRO == 177572 ;STATUS REG 0 

1219 177574 MMUSRi == 177574 

1220 177576 MMUSR2 == 177576 

eons 172516 MMUSR3S == 172516 ;SHOULD ONLY BE PRESENT ON 22 BIT CPU'S 

1223 172340 KPARO == 172340 ;KERNEL MODE PAGE ADDRESS REG 0 

1224 172342 KPAR1 == 172342 

1225 172344 KPAR2 == 172344 

1226 172346 KPARS == 172346 

1227 172350 KPAR4 == 172350 

1228 172352 KPARS ==: 172352 

1229 172354 KPAR6 == 172354 

ieee 172356 KPAR7 te 172356 ;ALWAYS FOR I/O PAGE 

1232 172300 KPDRO == 172300 ;KERNEL MODE PAGE DESCRIPTOR REG O 

1233 172302 KPDR1 == 172302 

1234 172304 KPDR2 == 172304 

1235 172306 KPDR3 ss 172306 

1236 172310 KPDR&4 £== 172310 

1237 172312 KPDR5 == 172312 

1238 172314 KPDR6 zs 172314 

4299 172316 KPDR7 ee 172316 

1341 000001 MMON == BITO _;ENABLE MMU - MMUSRO 

rt 000020 MM220N == BIT4 sENABLE 22 BIT MMU - MMUSR3 
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GLOBAL EQUATES SECTION | 


1245 5 5 OO S6 06 66 66 666666 6646464606460 0666646466448 6S FKFKEEKLEREEEESEREL REALE LEE 
1246 5 § OO 6646 66406 6664606 066460606 66 64666046 6606 0660600004600 40806000046800 4604 
1247 ; 

oes ;COMMAND PACKET OPCODES 

1250 5 5 O66 046460646448 66 04640404 6$ 0046600464040 046 046464066600 64800 00 000408 EREEREDRE 
12751 5 5 9866064666 6606446 6606 4640040660646 6604640464040 046460 4040046400062 40404 4000008 
1252 

1253 000004 OP.SCC == 04 ;SET CONTROLLER CHARACTERISTICS OPCOre 
1254 000011 OP.ONL == ii ;ONLINE OPCODE 

1255 000001 OP.GDS == 01 ;GET OUST STATUS OPCODE 

1256 000003 OP.€LP == 03 sEXECUTE LOCAL PROGRAM OPCODE 
1257 000005 OP.REC == 05 sRECEIVE DATA OPCODE 

1258 000006 OP.ABT == 06 ;ABORT PROGRAM OPCODE 

roe 000200 OP.END == 200 sEND MESSAGE FLAG OPCODE 

1261 

1262 fp SSSSAEAAARAASSAASASAASESESASAKEERASEASALERARERALALALEARELALEREDS 
1263 fp RERREASEAARESASEALAAAAKASASERASEAAAAAERARAREAKEAKAARALASERELALELE 
1264 ; 

or ;GENERIC COMMAND PACKET OFFSETS 

1267 ETT TTT TTT TTT TET TTT TT TET TTT TTT ESTEE TET TTT TT TET TTT TTT TTT Tee 
1268 § § RRSAASSAEAASAESREAEAAAREEARAARSARAASEAAAASEAAAEEAAEAKAAAALERALE 
1269 

1270 000000 P.CRF == 0 ;COMMAND REFERENCE NUMBER 

1271 000004 P.UNIT == 4 ;UNIT NUMBER 

1272 000010 P.OPCD == 10 ;OPCODE 

i273 000011 P.FLGS == 11 : ;END MESSAGE FLAGS 

1274 000012 P.MOD == 12 ;MODIFIERS / STATUS 

1275 000012 P.319 = 12 ;MODIFIERS / STATUS 

1276 000014 P.BCNT == 14 ;BYTE COUNT 

1277 000020 P.BUFF == 20 ;BUFFER DESCRIPTOR 

1278 

1279 

1280 fp RRERSERASAEAAESSAAKARAAREAAERSARASRERAAEAARALARAAKAREAEAARERRERAKEKE 
1281 5 SERSASAKEAASESEEAEAERERAREEEARARAAEAEAAERKKAEARAEAAAAKKASEKEALELEKEE 
1282 : 

o. ;GET DUST STATUS END PACKET OFFSETS 

1 ; 

1285 fp REREREAAAEKASEEAAEAAAAEAAEALARERAAEARAAKAARARERAEALKEARALKESERES 
1286 fp ERERAAAEAEAEESAAESSEAEAKAARAKEEAARAEEAEARAKEAAKAAAEKEKAKEAREALEKES 
1287 

1288 000014 P.EXT1 == 14 ;1ST BYTE OF PROGRAM EXTENSION 
1289 000015 P.EXT2 == 15 ;2ND BYTE OF PROGRAM EXTENSION 
1290 000016 P.EXT3 == 16 ;5RD BYTE OF PROGRAM EXTENSION 
1291 000017 DUSTFL == 17 ;FLAGS 

1292 000020 P.INDi == 20 :1ST WORD OF PROGRESS INDICATOR 
1293 000022 P.IND2 == 22 ;2ND WORD OF PROGRESS INDICATOR 
pi 000024 TIMOUT == 24 ;TIMEQUT VALUE 
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GLOBAL EQUATES SECTION 


1297 Ss OOO 06 6646646 66 666466 46664646 660646446 0464646 4646464460468 6464424648464 404846464464 4048 
1298 £5 OOOO 600046646464 66 046466466 646 6464646 6466464646 6464644640646 0646464644464 46464446404444 4468 
1299 3 
oer ;TKSA BIT DEFINITIONS 
1301 F 
1302 5 5 0666064666606 46646460046 6EKEEEEASALEESEAESERARALERALALEALALALLAAEES 
1303 5 ORE O444 646464646466 4646446464640 464 4EEESEEEEREEEALALARAREARELELRALEEARES 
1304 
1305 100000 ERR BS 100000 ;ERROR 
1306 004000 $1 Bs 004000 sSTEP 1 
1307 000001 GO == 000001 ;G0 
1308 
1309 
1310 sf RERASERAERARAASEAAEEEASSEASSALEAARESABAREAAEAEAREERRAAAERALARALS 
1311 5p REREAEREEEEASEERAAEEARERAEEEAEEARAREASERAAREEALEAAEARAREREREARAL 
1312 ; 
oes :U/Q PORT LITERALS 

; . 
1315 5 RRSRSEREEASAAAEASEAAAAEAAEEEAAERAGEEEAASAALESALRAAAAAERASLAEALERRES 
1316 5p PRRAEAEEEAAARERESAREAEAEAEARAREAARAEAEAEEARAKEAS EAREAAREARAERERLAS 
1317 
1318 100000 OWN lo 100000 ;DESCRIPTOR OWNERSHIP BIT 
1319 040000 FLAG ss 040000 ;sDESCRIPTOR INTERUPT FLAG BIT 
1320 000200 IMM ss 000200 ; IMMEDIATE COMMAND FLAG 
1321 000010 TF.BLK == 10 ; TAPE FORMAT 
1322 000000 HSTIMO == 0 sHOST TIMEOUT VALUE 
1323 000000 MSCPVR == 0 7MSCP VERSION NUMBER 
1324 000004 RNGSTP == 4. ;sDESCRIPTOR RING STEP 
ee 000104 RSPSTP == 68. ;sRESPONCE BUFFER STEP 
1327 

\ 











-_ 
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GLOBAL EQUATES SECTION 
1329 SF OOOO 60806646 66 $6466 6466666 66466 66464606 464660646646 646464646646 0464464646 46442440484 
ot 5s OO SS6604666 66 646 £646 6466664664 6464664 6644646464624 4464640646664 42448 4R SR REEAEES 
1331 3 
po ;TMSCP DRIVER BUFFER OFFSETS 
1334 : § OO O0646464 464646666 646464666 60646666646 6460464604646 6640646 4604640646 44460646 40404404464 046% 
et gg OOO 4464654464466 64664064 6464646464646 4666606404646 0646404646644 4464644464644 4244646 
1337 000002 HIADDR == 2. ;DESCRIPTOR ADDRESS OFFSET 
1338 177777 CONID == -1. ;COMMAND/RESPONSE CONNECTION TYPE I.D. 
1339 177776 CRD ze -2. ;COMMAND/RESPONSE CREDIT LIMIT OFFSET 
1340 177774 MSGLEN == -4. ;COMMAND/RESPONSE MESSAGE LENGTH 
134: 000005 TXFER == 5. ;ERROR FORMAT FOR “TAPE TRANSFER” ERROR LOG 
1342 000011 DRVER == 9. sERROR FORMAT FOR “DRIVE ERROR” ERROR LOS 
1343 000000 CNTER == Oo. ;ERROR FORMAT FOR “CONTROLLER ERROR” ERROR LOG 








—— 
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GLOBAL EQUATES SECTION 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 000002 L2STA == 2 
1355 000004 L2DRV == 4 
1356 000006 L2TST == 6 
1357 000007 L2TRK == 7 
1358 000010 L2CMD == 10 
1359 000011 L2RSP == il 
1360 000012 L2UNT == 12 
1361 000014 L2BWR1 == 14 
1362 000020 L2BWR2 == 20 
1363 000024 L2BRD1i == 24 
1364 000030 L2BRD2 == 30 
1365 000034 L2SWRi == 34 
1366 000036 L2SWR2 == 36 
1367 000040 L2ECCi == 40 
1368 000042 L2ECC2 == 42 
1369 000044 L2CRC1 == 44 
1370 00004¢ L2CRC2 == 46 
1371 006050 L2REP1 == 50 
1372 000052 L2REP2 == 52 
1373 000134 L2ELFM == 134 
1274 090135 L2ELFL == 135 
1375 005156 L2ELEV == 136 
1376 000144 L2ELRL == 144 
1377 000145 L2ELRT == 145 
1378 000146 L2ELPi == 146 
1379 000150 L2ELP2 == 150 
1380 000154 L2ELST == 154 
1381 000155 L2ELDE == 155 
13862 000156 L2ELDF == 156 
1383 000157 L2ELTN == 157 
1384 000160 L2ELPB == 160 
1385 000162 L2ELLB == 162 
1386 000163 L2ELTO == 163 
1387 000164 L2ELTi == 164 
1388 000165 L2ELT2 == 165 
1389 000166 L2ELDS == 166 
1390 000170 L2ELRW == 170 
1391 000172 L2ELOF == 172 
1392 000140 L2ELEC == 140 


;OF FSET 





SRASSVASSVAAIAASVAASIASSAASVASVASVASAAF 
m 





SEQ 33 


Ss 9OO6 8S $6660 06 £666 6666 6666066 0664664660646 46666 06 6006060404608 040648468008 
Ss OOOO S6464666 22 £006 06 6 $0606 466 6466464066646 446466 064604604 006060 0046000466008 


OFFSET VALUES INTO LEVEL 2 MICRODIAGNOSTIC RECEIVE DATA BUFFER 


5 5 OS O6 464806 06 66 46 66464666 64606466466 64466 6466400864666 6460660004448 040600804 
Ss PSSESESSKESSESSEESSESEAESSEAKSSASAASSHKASESSSAAAASEAELSKRERAEEEAE RES 


PROGRAM STATUS 
DRIVE STATUS 
TEST NUMBER 
TRACK NUMBER 
COMMAND IN ERROR 
RESPONSE FLAG 
UNIT FLAGS 
BLOCKS WRITTEN CH. 1 
BLOCKS WRITTEN CH. 2 
BLOCKS READ CH. 1 
BLOCKS READ CH. 2 
SOFT WRITE ERRORS CH. 1 
SOFT WRITE ERRORS CH. 2 
ECC CORRECTED ERRORS CH. 1 
ECC CORRECTED ERRORS CH. 2 
CRC ERRORS ON ECC BLOCK CH. 1 
CRC ERRORS ON EC BLOCK CH. 2 
READ REPOSITIONS CH. 1 
READ REPOSITIONS CH. 2 
ERROR LOG ERROR FORMAT 
ERROR LOG FLAGS 
ERROR LOG EVENT CODE 
ERROR LOG RETRY LEVEL 
ERROR LOG NUMBER OF RETRIES 
ERROR LOG POSITION Clow order) 
ERROR LOG POSITION (high order) 
CONTROLLER STATUS 

RROR LOG DRIVE ERROR CODE 
ERROR LOG DRIVE FLAGS 
ERROR LOG TRACK NUMBER 
ERROR LOG PHYSICAL BLOCK NUMBER 
ERROR LOG LOGICAL BLOCK NUMBER 
ERROR LOG LSB OF TAPE LENGTH COUNT 
ERROR LOG BYTE 1 OF TAPE LENGTH COUNT 
ERROR LOG MSB OF TAPE LENGTH COUNT 
ERROR LOG DRIVE STATE 
ERROR LOG READ/WRITE STATE 
ERROR LOG OPERATION FLAGS 
ERROR LOG CONTROLLER ERROR CODE 














- 
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GLOBAL DATA SECTION 


1394 .SBTTL GLOBAL DATA SECTION 
1395 
1396 
1397 5 OO SOS46 6466646464666 66 £646 664646 6466464644646 646646446466 6464464644444 464404646404 444% 
1398 £ fF FSSRSEAESASSESESSALEASAASSEASASASLAAKEASASASACALERLALACAZAALELAALELREALE 
1799 $ 
1400 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
ess ; IN MORE THAN ONE TEST. 

$ 
1403 Zs SSSASAASASAAAASALASSEACSEAAALASASASAAAASLACASLSAASALAALALAAEAL ELAS 
1404 jj SERREEAESAEAEEEEASSAEESAEEAESEEEEEESEAEARERAAAAAEA LEED EE REDE EES 
1405 
1406 
1407 
1408 5 RESRAREEARERASAAASAEEAREEAAEAESERAAAEERERAAAAARERRALERAALERERERS 
1409 5 RRRAEEEAEEEAAAEAEAAESEEEAEESAEAEARAAEEEARARAEAREALRALEALAEAEERES 
1410 ; 
1411 ; LUNBLK 
1412 ; THIS BLOCK OF MEMORY IS USED TO STORE VARIABLE INFORMATION 
1413 ; PERTAINING TO THE CURRENT LOGICAL UNIT UNDER TEST. LUNBLK 
1414 ; IS POINTED TO THROUGHOUT THE PROGRAM BY R4 AND INDIVIDUAL 
per ; LOCATIONS ARE ACCESSED VIA LITERALS DEFINED ABOVE. 
1417 Sp hhhhhees hbk ke eaeeEaRAREAEEEAEEAEAREAEAREAKAARAARAAKERRAAAKERES 
1418 5 ARREARS ARAAAEESSEAAAAAAAAREARREAASAAARAREAALARAREALESALARELAS 
1419 
vant 002212 000000 000000 000000 LUNBLK:: -WORD 0O,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
1422 
1423 § ERE RRAAARAAESASEAEEEARAREESEARAGAAAEAEARARARAEAKAAREARAAALE AL EES 
1424 ff RRERERERERER ES ESEAAAEAEASEAEEAREAEEEARRKAAREAEAAAREAAAEE ALE RLS 
1425 ; 
1426 ;UQ-PORT NECESSITIES 
1427 ; THESE TABLES ARE SET UP BY VARIOUS 
1428 : TESTS WITH VALVES TO BE WRITTEN TO 
1429 : THE PORT, AND COMPARISON VALUES TO 
1430 ' CHECK THE PORT AFTER EACH STEP TRAN- 
ane $ SITION OCCURS, RESPECTIVELY. 

; 
1433 5p SRRRRARARAREAAAEERAEALEREEREREAREARAARAERAEERASARERKRALALLAREERERS 
1434 5 RERERAAREAEEAAEEERSEERE SERA ASAAAAKERAERERERASAEEREREEERALRELEERS 
1435 
pt 002250 STPTBL:: -BLKW 4 ;VALUES WRITTEN TO THE PORT 
ake 002260 CMPTBL: : .<BLKW 4 ;COMPARISON VALUES 





SEQ 34 


~~ 








o- - 
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GLOBAL DATA SECTION 





SEQ 35 


1441 Se 202606 6666646 6464646666666 66446646 6646446464646 64644664646464644646646064646446466404040468% 
1442 5 O06 66066646606 060646006 6664664046 06060460000 04600046000000460000400 04% 
1443 5 
1444 ;PROGRAM CONTROL VARIABLES 
1445 3 THESE GLOBAL VARIABLES ARE GENERALLY USED TO CONTROL THE 
tt 3 OVERALL EXECUTION OF THE DIAGNOSTIC. 
1448 Pere et te ett tte tte tte tT TTT TT TT TTT TTT TT TT TTT TTT TT TTT TTT TTT TTT 
1449 Peer tte tt ett et ttt ttt tts TT TTT TT TT TT TT TTT TTT TT TTT TTT TT TTT TTT 
1450 
1451 002270 000000 PASCNT:: -WORD 0O ;CUMULATIVE PROGRAM PASS COUNTER 
1452 002272 000000 ITRCNT:: -WORD 0O ;LOADED BY EACH TEST TO SPECIFY @ OF ITERATIONS 
1453 002274 000000 KTFLAG:: -WORD 0O ;=0 MEMORY MANAGEMENT NOT AVAILABLE 
1454 ;=1 MEMORY MANAGEMENT IS AVAILABLE 
1455 002276 000000 TRP4FG:: -WORD 0 +*1 TRAP TO VECTOR OCCURRED 
1456 002300 000000 PAROFF : : -WORD 0O ;USED IN TEST 7 TO STEP THROUGH UPPER MEMORY 
1457 002302 000000 CMMERR: : -WORD O ;=0 NO ERROR IN COMMUNICATION AREA 
1458 :=1 ERROR WITHIN COMMUNICATION AREA 
1459 ;=-1 ERROR BEYOND BOUNDS OF COMM AREA 
1469 002304 000000 CMTBLG -WORD 0O ;# OF CONTIGUOUS WORDS IN ERROR IN COMM AREA 
1461 902506 000000 CMARLG .WORD O ;LENGTH OF COMM AREA FOR TEST N 
1462 302310 000000 FRUIS -WORD O sPOINTER TO FAULTY FRU ASCII FOR PRINTOUT 
1463 002312 900000 LOGUNT -WORD 0O ;LOGICAL UNIT # OF CURRENT UUT 
1464 002314 000000 SAEXP -WORD 0O ;LOADED WITH EXPECTED SA FOR ERROR CHECKING 
1465 0C2316 000000 INISTP -WORD O ;CURRENT STEP OF INIT SEQUENCE 
1466 002320 000000 STEPST -WORD 0O ;sSUCCESS/FAIL STATUS FROM STEP SUBROUTINES 
1467 002322 000000 WRDATA .WORD 0O ;LOADED WITH DATA FRO WRAP MODE TEST 
8 002324 000000 INNER -WORD O ;COUNTER FOR PDELAY ROUTINE 
1469 002326 000000 OUTER -WORD 0O ;OTHER COUNTER FOR PDELAY 
1470 002330 000000 TOUT -WORD 0O ; TIMEOUT INDICATOR FOR PDELAY 
1471 002332 000000 TEMP: : -WORD 0O ; TEMPORARY STORAGE LOCATION 
1472 002334 000000 FLAGS: : -WORD O ;WORK LOCATION FOR SUPERVISOR FLAGS 


-_--., 


GLOBAL AREAS 
GLOBAL DATA SECTION 








MACRO YOS.02 Thursday 25-Jul-85 09:27 Page 24 


SF FSSSSSSESSSS SEAESESSSAEESASEASSASSKASSESASSSASASLASKESKE EEL ELAE 
SF FSSSSESESESSESSSSSSESSKSSE SESS SS AAAS KASASALEACASSAASALSKAEEEALE DEE 


TMSCP/DUP COMMAND PACKETS 


¢ FSSSSSSSSSSAASES SESSA SSSASSALASASSAAKSSSASAKSE KAKA AL ACAALALALL SAS 
¢ FSSSSEAESSSESESASESEAS ES EALAAALAASSLACASAEASLSASAALHAAAAASZA LEAL LES 


jj PRRRSSSESEEAKESESAEEASEESEESAEADEESRSAREEAEERASEARARARADARALA EES 
;TMSCP SET CONTROLLER CHARACTERISTICS COMMAND PACKET 


of FSSASSSEASE SAKE ALSESAASALAAALALELASLASASRAAALAAACARAAAALSALELAALALIOL 


oo: 
oO 


.SCC,0 


: 


ooooo 


;STARS 
;TMSCP ONLINE COMMAND PACKET 


‘ 
§ f SSERAEAEAALASSAEAEARASASAARARAARREBRARREREARABARARSARSEAAAAAALEAREL 


g 
oO 
aa 
oo: 
© 


-W 
ONLINE: .WORD 


orl e. Gee 
2 
r= 
© 


ooooo°o: 


;STARS 
: 
;DUP GET DUST STATUS COMMAND PACKET 


‘ 
gg SRSERSAAASERARAAEAARAAAKAREESAAEEABAEAAAESALARKEEAEAEASAAL HALL EES 


-WORD 16.,0 
GDUST: .WORD 0,0 

-WORD 0,0 

-WORD OP.GDS,0 


;STARS 





SEQ 36 


eee 
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GLOBAL DATA SECTION 
DUP EXECUTE LOCAL PROGRAM COMMAND PACKET 


1531 ; 
1532 $ 
1533 $3 SSSSSSSSASEA ESSA SASAAASASLSASSSASSSASSEAASSEAASE SALSA AL ALAS ERSD LEOEDSE 
1534 
1535 002472 000022 000000 -WORD 18.,0 
1536 002476 000000 000000 XLOCPR: .WORD 0,0 
1537 002502 000000 000000 -WORD 0,0 
1538 002506 000003 000000 -WURD OP.ELP.O 
1539 002512 104 111 101 -ASCII /DIAGL2/ 
1540 
1541 
1542 ;STARS 
1543 3 
ties ;DUP RECEIVE DATA COMMAND PACKET 
a et tt tt TT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TT TT TTT TTT TTT TTT 
1 
1548 002520 000024 000000 -WORD 20.,0 
1549 002524 000000 000000 RCVDAT: .WORD 0,0 
1550 002530 000000 000000 -WORD 0,0 
1551 002534 000005 000000 -WORD OP.REC,O 
1552 002540 000226 000000 -WORD 150.,0 
saa 002544 060000 000000 -WORD RDBUF,O 
1555 
1556 ;STARS 
1557 ; 
‘ane :DUP ABORT COMMAND PACKET 
$ 
aoe ‘ ETT TT TTT TT TT TTT TT TTT TTT TIT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TT 
1561 
1562 002550 900014 000000 -WORD 12.,0 
1563 002554 000000 000000 ABORT: .WORD 0,0 
1564 002560 000000 000000 -WORD 0,0 
ot 002564 000006 000000 .aJRD OP.ABT,O 
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GLOBAL DATA SECTION 


1568 o ¢ O86 64066466066 66 66 $6 6666 64666 466 6466444640646 64600 6046404460868 0046408460888 
¢ 260664664666 466 66 6664666466 66 6666 66 646646 0664046066 04460046 464600600046400 24048 


1569 3 
1570 s 
pt ;CLASS DRIVER BUFFERS 
1 5 
1573 5 je O6 4046446464044 00466 $6 04600046046 04 00404040460000 000000400 0000000000 004 
1574 5 5 644464404646 0646064600046 0004400400600 04500004000006000000 00006000460 
1575 
1576 002570 RESPSF : : -BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE BUFFER 
pi 002574 RSPBUF : : -BLKW 66. sDRIVER RESPONSE BUFFER 
1579 
1580 Pete TT Tt tt ttt ttt ttt ttt TT TTT TTT TTT TTT TTT TTT TTT TTT TTT ETT TT TTT TTT 
1581 were ttt tt ttt ttt ttt tT TT TT TTT TTT TT TTT TTT TTT TTT TT TTT TTT TTT TTT 
1582 3 
oon ;U/Q PORT DESCRIPTOR RINGS 
1585 LEE EOE AER a A ORI PER NO Boe RT RT Te 
1586 wert tt tt tt tit tt tT Tt TT TT TT TTT TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT 
1587 
1588 003000 DSCRNG:: -BLKW 2. ;DESCRIPTOR RING 
1589 003004 RSPEND: : ;END OF RESPONSE BUFFER 
1590 003004 RSPRNG: : -BLKW 4, sRESPONSE DESCRIPTOR RING 
1591 003014 CMDRNG: : -BLKW 4. ;COMMAND DESCRIFTOR RING 
saee 003024 DSCEND:: ;END OF DESCRIPTOR RING 
1594 
1595 Pett TT ttt tt ttt ttt ttt TTT Tt ttt TTT TTT ITT TTT TTT TTT TT TTT TTT TTT TTT TT 
1596 fp SSSREAEASESASASAARSEASARASASASAASAAALEALAESEEEALASAALALEAAEAL‘S 
1597 ; 
2. ;CLASS AND PORT DRIVER VARIABLES 
: 
1600 Seri Tit titi ttt iti ttt ttt ttt TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TT 
1601 fp SSRSRAEAEAAAREEAAEASASASSAAASAASSAASEEALARAEERELELASEEEALALALES 
1602 
1603 003024 000000 CNTHI -WORD 0 ;VALUE OF THE HIGH TIMEOUT 
1604 003026 000000 CNTFLG WORD O sCONTROLLER FLAGS 
1605 003030 000000 PCKSIZ -WORD 0O ;PACKET SIZE IN BYTES 
1606 003032 000000 EF: WORD O ;COMMAND REFERENCE NUMBER 
1607 003034 000000 CMDCNT WORD O sCOMMAND COUNT 
1608 003036 WRBUF : : -BLKW 4096 sWRITE BUFFER 
1609 023036 000000 CMDSAV -WORD 0 ;COMMAND DESCRIPTOR SAVE 
1610 023040 000000 RSPSAV:: -WORD 0O ;RESPONSE DESCRIPTOR SAVE 
1611 023042 000000 CURCMD: : «WORD 0 sPOINTER TO CURRENT COMMAND ASCII 
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GLOBAL DATA SECTION 


000000 
627 023046 177777 


1 

1628 023050 177777 
1629 

1630 023052 

1631 





Sf FSSSOE 466666 £6 £6 $666 $46 64666 64666 6464646 66 8 $0 4S 0048 OOHEEEEKREDLEEKREDS 
5s 8866466666 $6 £6 £6 00464664666 66 £6 064004600048 6 HO HONS HKEKEEEREDEKEERDELES 


PROTECTION TABLE 


os £9 S66666 464646 66 6666 66466066 6666 66406406 06 080 0466000060466 04000884 LE 
fp FESSESASESESSSESSE SESS SKASSA SS AKAKASSASESNS KAKA KS KAAKTALASAALELALAS 


BGNPROT 

L$PROT:: 
-WORD O 
. WORD -1 
- WORD -1 

ENDPROT 





SEQ 39 
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GLOBAL DATA SECTION | 
1633 023052 STARS , 
£8 OO O64646 6664664666 66666666 66 66 6466606600666 4660464606464046446466464664604600808% 
1634 923052 STARS 
35 FF FSSSSESESSSSESSSESSESESSESESSSASSESSASSEAKASALSSSAAAESSESEAREEEESE 
16 3 
— sLEVEL 2 MICRODIAGNOSTIC ERROR TABLE 
; 
1638 023052 STARS 
SF SSSSSESSSSASESASSASABASASASEALSSASASAASSKSASASAKAALASASE SARE ALEDE 
1639 023052 STARS 
Fs FSSSESSASSEASSACASACASSAASSL AAAS ESSEASSAASEASARASEAASEAALAELESZERE LEE 
1640 
1641 023052 ERRTBL 
023052 LSERRTBL:: 
023052 000000 ERRTYP:: WORD 0O 
023054 000000 ERRNBR: : .WORD 0 
023056 000000 ERRMSG: : -WORD 0 
ones 023060 000000 ERRBLK:: -WORD 0 
a 023062 L2ETBL:: sSTART OF TMSCP COMMAND ERROR MESSAGES 
1645 023062 000001 .WORD ‘. : INVALID COMMAND 
1646 023064 14 . WORD 101 
1647 023066 030763 WORD L2ER1 
pe 023070 033544 WORD L2DUMP 
1650 023072 000001 . WORD * ;COMMAND ABORTED 
1651 023074 000146 WORD 102 
1652 023076 031003 WORD L2ER2 
ett 023100 033544 . WORD L2DUMP 
1655 023102 000001 .WORD és ; UNIT-OF FLINE 
1656 023104 000147 WORD 103 
1657 023106 031023 -WORD L2ER3 
eee 023110 033544 -WORD L2DUMP 
1660 023112 000001 . WORD hu ; UNIT - AVAILABLE 
1661 023114 000150 . WORD 104. 
1662 023116 031040 . WORD L2ER4 
soos 023120 033544 -WORD  -L2DUMP 
1665 023122 000001 .WORD oF sINVALID STATUS 
1666 023124 000151 . WORD 105. 
1667 023126 031057 -WORD L2ERS 
aes 023130 033544 . WORD L2DUMP 
1670 023132 000001 .WORD ,& sWRITE PROTECTED 
1671 023134 000152 - WORD 106. 
1672 023136 031107 -WORD L2ERS5 
rth 023140 033544 . WORD L2DUMP 
1675 023142 000001 . WORD  & ;COMPARE ERROR 
1676 023144 000153 - WORD 107. 
1677 023146 031127 . WORD L2ER7 
aes 023150 033544 -WORD L2DUMP 
1680 023152 000001 .WORD # ;DATA ERROR 





t eS A SS SS 





GLOBAL AREAS 
GLOBAL DATA SECTION 


1681 023154 
1682 023156 
1683 023160 


1684 
1685 023162 
1686 023164 
1687 023166 
1688 023170 
1689 


1703 023220 
1705 023222 


1713 023240 
1715 023242 


1725 023262 
1726 023264 
1727 023266 
seas 023270 


172 

1730 023272 
1731 023274 
1732 0235276 
oes 023300 


1734 

1735 023302 
1736 023304 
1737 023306 
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000154 
031145 
033544 


000001 
000155 
0312160 
033544 


000001 
000167 


119. 
L2ER19 





sHOST BUFFER ACCESS ERROR 


sCONTROLLER ERROR 


sDRIVE ERROR 


sFORMATTER ERROR 


;BOT ENCOUNTERED 


;TAPE MARK ENCOUNTERED 


s;IMVALID STATUS 


sRECORD DATA TRUNCATED 


sPOSITION LOST 


;SERIOUS EXCEPTION 


sLEOT DETECTED 





SEQ 41 


GLOBAL AREAS 
GLOBAL DATA SECTION 


1738 023310 033544 
1739 

1740 023312 
1741 


1779 
1780 


023320 
023322 
023324 
023326 
023330 


023332 


023352 
023354 
023356 
023360 


023362 


023370 
023372 


023410 
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000001 
000170 
031467 
033544 


000001 
000171 
031551 
033544 


000001 
000172 
031631 
033544 


000001 
000173 
031720 
033544 


000001 
000174 
032010 
033544 


000001 
000175 
032076 
033544 


000001 
000176 
032167 
033544 


000001 
000177 
032261 
033544 


CNTERR: . 


INVSTA: 


BPNERR: . 
RSPADD: . 
HBFADD: . 


UNERLG : 


RSPTO: 


. WORD 
- WORD 
. WORD 
. WORD 
- WORD 








SEQ 42 


sSTART OF MICRODIAGNOSTIC DETECTED ERROR MESSAGES 


sDATA COMPARE ERROR 


;CONTROLLER ERROR 


sINVALID STATUS 


;BAD PATTERN NUMBER 


sRESPONSE ADDRESS ERROR 


sHOST BUFFER ADDRESS ERROR 


sUNKNOWN ERROR LOG RECEIVED 


sRESPONSE TIMEOUT ERROR 


A LL LL LLL OO LL 
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GLOBAL TEXT SECTION 


1782 -SBTT_ GLOBAL TEXT SECTION 
1786 5 f O 406 066606464646646 0646606660646 600460406 0446 0040000404044 EEE EEEEELE 
1787 5 5 9606464666446 646466406 040406 6400446466400 4646 000466004460 040404604440 44044 
1788 ; 
1789 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1790 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
1791 ; MORE THAN ONE TEST. 
1792 3 
1793 ff PREEEEEEEAEAEESESEASEAAEASEAEEARESAREEEEAERSLEAREREARE REAR LARES 
= ff PRSRSASAASSASESASAAESARAADASEASASALALEEAAARARESALALALALALALEREE 
1796 
fad 5p SSSREEAEEAESREASARASASALASAARRARERARAEAARARALARERERALEL AKERS RRS 
1 ; 
pea ; NAMES OF DEVICES SUPPORTED BY PROGRAM 
1801 5 gob ob b0dbdbndennnedakesseenesedessennenssensesesnscesessacccce 
1805 
1806 023412 DEVTYP <TK50> 

023412 LS$DVTYP:: 

023412 124 113 065 -ASCIZ s#TKSOs 

-EVEN 

1807 


-_ 


GLOBAL AREAS 


1827 023772 
1828 024035 
1829 024071 
1830 024122 
1831 024147 
1832 024211 
1833 024214 
1834 024265 
oa 024342 


9 
1838 024417 
1839 024473 
1840 024531 
1841 024571 


1868 026423 


-—— 
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GLOBAL TEXT SECTION 





5s FSSESSSSESSEESSSSS SESE SESE SASESESALASSASHASRAKSAALALASSEAAAAAERELADS 


; 
sFORMAT STATEMENTS 


§ s FSESSSSASSASSSSASA SESH SASS EAASALALCEASL SS AKASRACAALRLALALARELASE EERE 


111 CLINE1:: 


045 L233: 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


?SAINIT SEQUENCE STEP @: #D1? 

?SNSASA REG: 068A EXPCTD: S068A ACTUAL SA: #06? 
?SNSAIP REG ADDRESS: #06? 

?SNSAsaaeFAILING FRU: STSAaeeetNSN? 

?SARELOCATION CONSTANT: #S068A VIRT. ADD: #06? 
?SNSAEXPECTED: 068A RECEIVED: #06? 

?SAPHYSICAL ADD: #067 


?SNSASA REG: S068A SA CONTENTS: #06? 
?SNSAFAILING COMMAND : SsTSN? 

?SNSA RESPONSE PACKET#SN? 

?7SNSA 8 8=69ss068A #06? 

?SNSACMD EXP: #068A CMD REC: #06? 


?8N? 
?SNSAFAILING COMMAND : STSNSAUNIT UNKNOWN? 
: STSNSANO MEDIA MOUNTED? 


?SNSAFAILING COMMAND 
?SNSAFAILING COMMAND : STSNSAUNIT INOPERATIVE? 


?SN28Aseee LEVEL 2 MICRODIAGNOSTIC DUMP s««%? 
?28N2SAPROGRAM STATUS: #06? 


?SNSADRIVE STATUS: #03? 
?SNSATEST NUMBER: #03? 
?SNSATRACK NUMBER: #03? 
?sNSATMSCP COMMAND: #03? 


?sNSATMSCP mat Pee FLAG: #03? 
?SNSATMSCP UNIT FLAG: #06? 

*ANOBABLOCKS. WRITTEN CHANNEL 1: #06? 
?SNSABLOCKS WRITTEN CHANNEL 2: D6? 


?SNSABLOCKS READ CHANNEL 1: #06? 
?SNSABLOCKS READ CHANNEL 2: #D6? 
?SNSASOFT WRITE CHANNEL 1: “D6? 
?SNSASOFT WRITE CHANNEL 2: “D6? 


?SNSAECC CORRECTED CHANNEL 1: “D6? 
?SNSAECC CORRECTED CHANNEL 2: %D6? 
?SNSAREAD REPOSITIONS CHANNEL 1: #D6? 
7#NSAREAD REPOSITIONS CHANNEL 2: *D6%N? 
?#N28AERROR LOG (TAPE TRANSFER ERROR)? 
?2SNSAERROR FORMAT: #03? 


7SNSAERROR FLAGS: #03? 
?SNSAEVENT CODE: #06? 

?SNSAERROR RETRY LEVEL: #03? 
?2SNSANUMBER OF RETRIES: %D3? 
?SNSAPOSITION (LOW ORDER): #06? 

?#NSAPOSITION CHIGH ORDER): #06? 

?SNSACONTROLLER STATUS: %03? 
?SNSADRIVE ERROR CODE: #03? 
?SNSADRIVE FLAGS: #03? 
?2SNSATRACK NUMBER %D3? 


?SNSAPHY SICAL BLOCK NUMBER: #D6? 





SEQ 44 





~ 


GLOBAL AREAS 
GLOBAL TEXT SECTION 


1869 026462 
1870 026524 
1871 026566 


1909 030726 
1911 030763 


192 
1925 031334 
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1234:: .ASCIZ 
L235:: .ASCIZ 
L236:: .ASCIZ 
L237:: .ASCIZ 
L238:: .ASCIZ 
L239:: .ASCIZ 
1240:: .ASCIZ 
L241:: .ASCIZ 
L242:: ASCIZ 
L244:: ASCIZ 
L245:: ASCIZ 
1246:: .ASCIZ 
L247:: .ASCIZ 
L248:: .ASCIZ 
1249:: .ASCIZ 
L250:: .ASCIZ 
L251:: .ASCIZ 
L252: .ASCIZ 
L253: ASCIZ 


ss FRSRAASASSESAAALEASESAALALARASALALAALERAAASEAAEEAAKLALEARAALARASS 


;ERROR MESSAGES 


@ 
gs SRSKAEAAAAAALALALAEEEAAALEARARRRAARKERARAAKAAEALAAARASALAKEKA EEE 


EMSGS:: .ASCIZ 
EMSG6:: .ASCIZ 
EMSG7:: .ASCIZ 
EMSG8:: .ASCIZ 
EMSG9:: .ASCIZ 
EMSG10:: .ASCIZ 
EMSG11:: .ASCIZ 
EMSG1i2:: .ASCIZ 
EMSG13:: .ASCIZ 
EMSG14:: .ASCIZ 
EMSG15:: .ASCIZ 
L2ERi:: .ASCIZ 
L2ER2:: .ASCIZ 
L2ERS:: .ASCIZ 
L2ER4:: .ASCIZ 
L2ER5:: .ASCIZ 
L2ER6:: .ASCIZ 
L2ER7:: .ASCIZ 
L2ER8:: .ASCIZ 
L2ER? »ASCIZ 
L2ER10:: .ASCIZ 
L2ER11:: .ASCIZ 
L2ER12:: .ASCIZ 
L2ER13:: .ASCIZ 
L2ER14:: .ASCIZ 
L2ER15:: .ASCIZ 
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?SNSALOGICAL BLOCK NUMBER: “D3? 
?2SNSATAPE COUNT O : 803? 
?SNSATAPE COUNT 1 : #03? 
?SNSATAPE COUNT 2 : “03? 
?2SNSADRIVE STATE: 805? 
?2SNSAREAD/WRITE STATE: “06? 


?2SNSAOPERATION FLAGS: 806? 
?SN2SAERROR LOG (CONTROLLER ERROR)? 
?SNSACONTROLLER ERROR CODE: #06? 


— — BYTE WRITTEN: 


2ssNes 38A 
7SNSA SO38A 
2NSA SO3KA 
2SNSA SO38A 
?ssNSA SO38A 
?SNSA SOSHA 
2SNA SO38A 
2SNSA SOSA 
2SNSA 3s 


SOSHA SOSKA 
?SN2SATOTAL NUMBER OF MISCOMPARED BYTES: #06? 


?NXM ON READ TKIP? 

?TKIP NOT O ON FIRST READ? 

?NXM ON READ TKSA? 

?SA REG IN ERROR ON FIRST READ? 
?SA CONTENTS IN ERROR? 

?SA WRONG IN DATA WRAP? 

?EXPECTED INTERRUPT DID NOT OCCUR? 


“038A BYTE ADDRESS: 
SO38A 


SO3KA 
SO3KA 
SO3KA 
SO38A 
SO38A 
SO38A 
SO3HA 


?INTRRPT OCCURRED WITH CPU PRIORITY = 7? 


?7SA NOT O IN PURGE/POLL? 
?PURGE/POLL TEST FAILED? 
?7EXTENDED ADDRESS TEST FAILED? 


?INVALID COMMAND? 
?COMMAND ABORTED? 
2UNIT - OF FLINE? 
?UNIT-AVAILABLE? 

?INVALID STATUS RECEIVED? 
?WRITE PROTECTED? 


?7HOST BUFFER ACCESS ERROR? 
?7CONTROLLER ERROR? 

?7DRIVE ERROR? 

?7FORMATTER ERROR? 

?B0T ENCOUNTERED? 

?TAPE MARK ENCOUNTERED? 
?INVALID STATUS RECEIVED? 





SEQ 45 
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GLOBAL TEXT SECTION 


1926 031364 122 105 103 L2ER16::.ASCIZ ?RECORD DATA TRUNCATED? 

1927 031412 120 117 123 L2ER17::.ASCIZ ?POSITION LOST? 

1928 031430 123 105 122 L2ER18::.ASCIZ ?SERIOUS EXEPTION? 

1929 031451 114 105 117 L2ER19::.ASCIZ ?LEOT DETECTED? 

1930 031467 115 111 103 L2ER20::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: DATA COMPARE ERROR? 

1931 031551 115 111 103 L2ER21::.ASCIZ ?MICRODIAGNOSTIC PROGK®M ERROR: CONTROLLER ERROR? 

1932 031631 115 111 103 LZER22::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: INVALID STATUS RECEIVED? 
1933 031720 115 111 103 L2ER23::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: BAD PATTERN NUMBER ERROR? 
1934 032010 115 111 103 L2ER24::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: RESPONSE ADDRESS ERROR? 
1935 032076 115 111 103 L2ER25::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: HOST BUFFER ADDRESS ERROR? 
1936 032167 115 111 103 L2ER26::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: UNKNOWN ERROR LOG RECEIVED? 
1937 032261 115 111 103 L2ER27::.ASCIZ ?MICRODIAGNOSTIC PROGRAM ERROR: RESPONSE TIMEOUT ERROR? 


1939 032347 124 111 115 WRER1:: .ASCIZ ?TIME OUT DURING PORT INIT? 

1940 032401 120 117 122 WRER2:: .ASCIZ ?PORT INIT FAILED? 

1941 032422 124 115 123 WRERS:: .ASCIZ ?TMSCP COMMAND FAILURE? 

1942 032450 120 117 122 WRER4:: .ASCIZ ?PORT DETECTED ERROR? 

1943 032474 122 105 123. WRERS:: .ASCIZ ?RESPONSE OUT OF SEQUENCE? 

1944 032525 103 117 115 WRER6:: .ASCIZ ?COMMAND TIME OUT? 

1945 032546 125 116 105 WRER7:: .ASCIZ ?UNEXPECTED STATUS FOR ONLINE RECEIVED? 
1946 032614 104 125 120 WRERS:: .ASCIZ ?DUP COMMAND FAILURE? 


1947 -EVEN 

1948 

1949 fp RRRAAAEAAAEE ER EARAEARAREAEAEAKAREAAEAARAARARARAKARALARAKAKAKAKS 
1950 3 

tone sMISCELLANEOUS ERROR MESSAGES 

soe Aaah ee ehhesbenedbesdaeesedsasdssecoesdbecesocossncce 
1954 


1955 032640 103 116 124 CTRL:: .ASCIZ ?CNTRLR/CABLE? 
1956 032655 104 122 111 ORVE:: .ASCIZ ?DRIVE? 


1957 032663 123 103 103 SCCCMD::.ASCIZ ?SCC ? 
1958 032670 117 116 114 ONL ASCIZ ?0NL ? 
1959 032675 122 105 127 REWCMD::.ASCIZ ?REW ? 
1960 032702 127 122 040 WRCM ASCIZ ?WR ? 
1961 032707 122 104 040 RDCMD ASCIZ ?RD ? 
1962 032714 107 104 123. GDSCMD::.ASCIZ ?GDS ? 
1963 032721 105 114 120 ELPCMD::.ASCIZ ?ELP ? 
1964 032726 122 103 126 RCVCMD::.ASCIZ ?RCV ? 
1965 032733 101 102 124 ABTCMD::.ASCIZ 7ABT ? 
ie -EVEN 





—- «— 


GLOBAL 


1992 


1994 
0 


2003 
2604 


AREAS 


033022 
03 


033074 
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GLOBAL ERROR REPORT SECTION 


000002 


172346 
023626 
000003 


000010 


-SBTTL GLOBAL ERROR REPORT SECTION 
5 § O66 466606 660666 56466046464444646 46404664 FF RE REREREEERRERELELERALEEDES 
jj ROSE E466 $4664666664646466464066 6044046 0044 FREREEEEEEEEDRDLERERERALLE 


PRIINI:: 


PRISA:: 


PRIPAD: 


PRIVAD: 


PRIDAT: 


GLOBAL ERROR REPORTS 


THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB 
AND PRINTX CALLS THAT ARE USED IN MORE THAN ONE TEST. 
IT ALSO INCLUDES THE ASCII MESSAGES THAT ARE USED BY 
THE PRINTB AND PRINTX CALLS. 


ss SESSEAAASEAESALESAAAALALABREAALALACAABAASASCALSEALAAALALAALALEALEL EEA 
5p FERRE AAEAASALEASESLEAABASLASEAAARAKALAAASSEAALAREALAAELEALELELELRE 


BGNMSG 


#LINE1,INISTP 
INISTP,-CSP) 
#LINE1,-(CSP) 
#2,-C(SP) 

SP .RO 

C$PNTX 

#6 , SP 


#LINE2 , TKSACR4 ), SAEXP, TKSASVC(R4) 
TKSASVC(R4),-CSP) 

SAEXP, -C SP) 

TKSACR4),-CSP) 

#LINE2 , - (SP) 

#4,-(SP) 

SP ,RO 

CSPNTX 

#12,SP 

PRIERR 


#LINE7 ,R2 


#LINES ,KPARS ,R2 
R2,-CSP) 
#LINES , -CSP) 
#3, -(SP) 

SP ,RO 

C$PNTX 

#10, SP 





SEQ 47 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


2005 933074 


033114 
033120 


033122 


033172 


033176 
033176 
033176 
033202 
033206 
933212 
033214 
033216 


033222 
033222 
033222 
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012746 


010246 


023703 
000003 


000010 


000000 


023534 
000002 


000006 


002310 
023564 
000002 


000006 
033536 


002316 
023420 
000002 


000006 


000010 
033512 


023042 
000002 


000006 


PRIIP:: 


PRIERR: : 


WRINTO:: 


WRPRTE:: 


WRCMDE: : 


PRINTX 
v 


@LINE6 ,R1,(R2) 
yee 


#LINES, TKIPCR4 ) 
TKIPCR4),-CSP) 
#LINES ,-CSP) 
#2, -(SP) 

SP ,RO 


C$PNTX 
96 ,SP 


#1INE4 ,FRUIS 


#LINE1,INISTP 
INISTP, -CSP) 
#LINE1 ,-CSP) 
#2, -(SP) 

SP ,RO 

CSPNTX 

#6 ,SP 


#WR1, TKSACR4 ), TKSASV(R4) 
TKSASVC(R4),-CSP) 
TKSACR4), -CSP) 
#WR1,-CSP) 

$3, -(SP) 

SP ,RO 

CSPNTX 

#10,SP 

WREX 


R2 ,CURCMD 
CURCMD , - (SP) 
R2,-(SP) 

#2, -(SP) 





SEQ 48 


-_ - 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


2024 033300 
033 


0 
2025 
202 


0 
2035 
0 


2040 
2042 


a EEE ee 


033516 
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012746 


000137 


013746 


013746 
012746 


024071 
000001 


024211 
000001 


000004 
033512 


023042 
024035 
000002 


023042 
024935 
000002 


000006 


002310 
023564 


177774 


Wi: 


WRSEQE:: 


WRTOE: : 


PRINTB 
MOV 
MOV 
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R3,R1 
ah + Namal 


#4 ,R1 

#4 ,MSGLENCR3 ) 
Wi 

GWR6 

#WR6, -CSP) 
#1,-(SP) 

SP ,RO 

CSPNTX 

#4 ,SP 

WREX 


#WRe , CURCMD 
CURCMD , - (SP) 
#WR2 , - CSP) 
#2,-CSP) 


C$PNTX 


#6 , SP 

#WRS ,.P.CRFCR3),P.CRFCRS) 
P.CRFCRS),-CSP) 
P.CRFCR3),-CSP) 
@WRS , -CSP) 

#3, -(SP) 

SP RO 

C$PNTX 

#10, SP 

WREX 


#WR2 ,CURCMD 
CURCMD , - (SP) 
@WR2 , -C(SP) 
#2,-(CSP) 

SP ,RO 

C$PNTX 

#6 ,SP 


#LINE4 ,FRUIS 
#LINE4 ,-CSP, 





SEQ 49 


rt ae 


GLOBAL AREAS 
GLUBAL ERROR REPORT SECTION 


2043 


2044 


2045 
2046 


2047 
2048 


2049 
2050 


03 
2051 


0 
2052 

0 

0 
2053 

0 


0 
2054 
0 


0 
2055 
0 


033522 
033526 


033724 
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000002 


002310 
023564 
000002 


000006 
024417 
000001 
000004 
000002 
024473 
000002 
000006 
000004 


024531 
000002 


000006 


000006 
024571 
000002 


000006 


000007 
024631 
000002 


PRIEX: 


L10003: 
T 


L2DUMP : : 


€2,-(CSP) 
SP .RO 
CSPNTB 
#6 ,SP 


MSG 
J$ JMP 
L10003-2-. 


C$MSG 
L2DUMP 


#LINE4 ,FRUIS 
#LINE4 ,-(SP) 
#2, -(SP) 

SP ,RO 


C$PNTB 

#6 ,SP 

#L21 
#L21,-CSP) 
#1,-CSP) 

SP ,RO 

C$PNTB 

#4 ,SP 
#L22,LeSTACR1) 
L2STACR1), -CSP) 
#L22,- (SP) 

#2, -(SP) 


SP ,RO 

CS$PNTB 

#6 , SP 

#L23,L2DRVC(R1) 

L2DRVCR1), -C SP) 

#L23,-(SP) 

#2, -(SP) 

SP ,RO 

C$PNTB 

#6 , SP 

#L24,<B,L2TSTCR1)> 
CSP) 


L2TSTCR1), (SP) 
#L24,-(SP) 

#2, -(SP) 

SP ,RO 

CS$PNTB 


6 , SP 
< ; eel etal 


-(SP 
L2TRK(R1), (SP) 
#L25,-CSP) 

#2, -(SP) 

SP ,RO 





SEQ 50 


—“—- 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


-— 


2056 


0 
2057 


2058 


0 
2063 


0 
2064 


2065 
0 
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000006 
000012 


024771 
000002 


000006 
000134 
034720 


025601 
000001 





000005 


i$: 


TRAP 
ADD 


CSPNTB 


#6 .SP 
#L26,<B,L2CMDCR1)> 
-(SP) 

L2CMD(R1), (SP) 
#L26,-(SP) 
#2.,-(SP) 

SP ,.RO 

CS$PNTB 


#6 ,SP 
#L27,<B,L2RSPCR1)> 


-(SP 
L2RSPCR1), (SP) 
#L27,-(SP) 


#6, 
#. 28 ,L2UNT(R1) 


04 ,SP 
#L222,<B ,L2ELFMCR1)> 


-CSP 

L2ELFMCR1), CSP) 
#L222, -(SP) 

$2, -(SP) 

SP RO 

CSPNTB 

#6 ,SP 

Ce 


-¢ 
L2ELFLCR1), CSP) 
4.223, -( SP) 
@2,-(SP) 

SP ,RO 

C$PNTB 

#6 ,SP 
#.224,L2ELEV(R1) 
L2ELEV(R1),-CSP) 
L224, -( SP) 


;"TAPE TRANSFER” ERROR LOG ? 
;YES, DUMP "TAPE TRANSFER” ERROR LOG 
sNO, CHECK “CONTROLLER ERROR” ERROR LOG 





SEQ Si 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


r- 


2066 034170 
70 
2067 034216 


2068 pete 


2069 034270 


0 
2071 ocenas 

034364 
2072 pert Ly 


2073 034416 





MACRO YOS.02 Thursday 25-Jul-85 09:27 Page 30-5 


000144 


026011 | 
000002 





PRINTS 
CLR 


L225, <B, L2ELRL(R1 )> 
(SP) 


L2ELRLCR1).CSP) 
@.225, -(SP) 

@2, -(SP) 

SP? RO 

CSPNTB 


$6 ,SP 

#L226,<B, ,L2ELRTCR1)> 
-CSP) 
cat 


#6, 
#L227,L2ELPi(R1) 
L2ELPi(R1),-CSP) 
L227, -C SP) 
#2,-(SP) 

SP ,RO 

CS$PNTB 


#6 ,SP 
#L228,L2ELP2(R1) 
L2ELP2(R1),-CSP) 
L228, -(SP) 
#2,-(SP) 

SP .RO 

CSPNTB 

#6 ,SP 
#L229,<B,L2ELSTCR1)> 
-CSP) 
L2ELSTCR1), CSP) 
L229, -( SP) 


@6, 
#230, <8 ,L2ELDECR1)> 
-(SP) 
L2ELDECR1),(SP) 
@L230, -( SP) 

@2,-(CSP) 

SP ,RO 

CSPNT6 

#6 ,SP 

@.231,<B, L2ELDFCR1)> 
L2ELOF(R1),( SP) 
0.231, -(SP) 

2, -(SP) 

SP ,RO 

CSPNTB 

#6 ,.SP 

ae ees 
L2EL TNC(R1), CSP) 





SEQ 52 





GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


2074 


2076 


0 
2077 

0 

0 
2078 


0 
2079 
0 


0 
2080 
0 
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026361 
000002 
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@L232, -(SP) 
@2,-(SP) 
RO 


CSPNTB 


6 .,SP 
9L233,L2ELPB(R1) 
L2ELPBC(R1).-CSP) 
L233, -(SP) 

#2, -(SP) 

SP RO 

CSPNTB 


#6 ,SP 
— 


L2ELLBCR1).(SP) 
1234, -( SP) 


$6 ,SP 
—e 


L2ELTOCR1),( SP) 
L235, -C SP) 

#2, -(SP) 

SP RO 

CSPNTB 


#6 ,SP 
#L236,<B,L2ELTICR1)> 
-(SP ) 

oy ape al 


%6, 
#L237,<B,L2ELT2(R1)> 
-( SP) 
L2ELT2(R1),CSP) 

SP ) 


96 ,SP 
#L238,L2ELDS(R1) 
L2ELDS(R1),-CSP) 
#L238,-(CSP) 
#2,-(SP) 

SP RO 

CSPNTB 


#6 ,SP 
#L239,L2ELRWCR1) 
L2ELRWCR1),-(SP) 
#2,-(SP) 





SEQ 53 


GLOBAL AREAS 


034664 
e081 034670 
034670 
034674 
034700 
034704 
034706 
034710 
2082 034714 
2083 034720 
2084 034726 
2085 034730 


0 
2086 pe th 
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GLOBAL ERROR REPORT SECTION 


000167 
000000 


104423 


000006 
000172 


026770 
060002 


000006 
034774 
000134 


027027 
000001 
000004 
000140 


027071 
000002 


000006 


000000 105: 


255: 


L19004; 
T 


26 .SP 

L240, L2ELOF(R1) 
L2ELOF(R1),-CSP) 
#240, -(SP) 


#4 ,SP 
#L242,L2ELEC(R1) 
L2ELECC(R1),-CSP) 
L242, -(SP) 

#2, -(SP) 

SP RO 

CSPNTB 

#6 ,SP 

MSG 

J$ JMP 

L10004-2-. 


C$MSG 


;"CONTROLLER ERROR” ERROR LOG ? 
sNO, NO ERROR LOG TO PRINT, EXIT 
sDUMP “CONTROLLER ERROR” ERROR LOG 


SEQ 54 


_ 





GLOBAL AREAS 
2091 
2092 035002 


2093 035002 


2098 
2099 035002 
2100 035002 


2101 
2102 anes 


2103 035002 
0 
0 
2104 025026 
0 
0 
2105 035052 
0 
0 
2106 035076 
0 
0 
2107 MO apd 


0 
2108 soasae 
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STATISTICAL REPORT SECTION 


012746 


012746 


000014 


-SBTTL STATISTICAL REPORT SECTION 
STARS 


£5 99266666 646646606 66 6664664646460 464 666466644648 4S LKEEEREREEERESEES 


STARS 


ZF FSSSSESSSESESASEALSESEALASALASASASESASHAASKEKEE LESEEEERERELELRELS 


gs FSSASESEAESASASASS*SSLASSASASSNAASAAASCALEALARAKASESALEEAAAAEAELELE 


STARS 


£ s FSPASASSSSAAASSSSNSASASAALARLALAREALEASAASAASRSEASALAEKLALALAL EEA LELES 


LSRPT:: 


BGNRPT 


STATISTICAL REPORT SECTION 
THESE ARE THE “PRINTS” STATEMENTS USED TO DUMP THE LEVEL 2 
MICRODIAGNOSTIC TEST RESULTS 


#L29,L2BWR1(R1) 
L2BWRICR1),-CSP) 
4.29, -(SP) 


SP ,RO 
CSPNTS 
#6 ,SP 
#L210,L2BWR2(R1) 
L2BWR2(R1),-C(SP) 


#L210, -C(SP) 
2, -(SP) 


SP ,RO 
C$PNTS 


#6 ,SP 
#L.211,L2BRD1(R1) 
L2BRD1(R1),-CSP) 
#L211,-(CSP) 
#2,-(SP) 

SP RO 

CSPNTS 


#6,SP 
#.212,L2BRD2(R1) 
L2BRuetR1),-CSP) 
#212, -CSP) 

#2, -(SP) 

SP RO 


CSPNTS 


#6 SP 
#L.213,L2SWRiCR1) 
L2SWRICR1),-CSP) 
L213, -( SP) 

#2, -(SP) 

SP RO 

CS$PNTS 


#6 ,SP 
#L214,L2SWR2(R1) 
L2SWR2C(R1),-CSP) 
#L214,-CSP) 

#2 9 > ali 


SEQ 55 


GLOBAL 


0 
21¢9 

0 
2110 

0 

0 
2i11 

0 


0 
2112 
0 


0 
2117 
0 


0 
2118 
0 


eR RET RS ILE | CATE me 


AREAS 
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STATISTICAL REPORT SECTION 


000137 
016146 


000006 
000050 
025467 
000002 
000006 
600052 


025533 
000002 


000006 
000124 
036052 
000100 
000054 
000066 
027130 
000004 
000012 
000102 
000055 
000067 
027224 
000004 
000012 
000104 


000000 


CSPNTS 

#6 .,SP 
#L215,L2ECCi(R1) 
L2ECCiCR1),-CSP) 
#L215, -CSP) 

#2, -(SP) 

SP ,RO 

CS$PNTS 


#6 ,SP 
#L216,L2ECC2(R1) 
L2ECC2(R1),-CSP) 


#6, 
#L219,L2REP1(R1) 
L2REP1(R1),-CSP) 
#L219, -CSP) 
#2,-(SP) 

SP RO 

CS$PNTS 


#6 ,SP 
#L220,L2REP2(R1) 
L2REP2(R1),-CSP) 
#L220,-CSP) 
#2,-(SP) 

SP ,RO 

CS$PNTS 


#6,SP 
124(R1), 40 

i$ 

10$ 
#.244,<B,.66(R1)>,<B,54(R1)>,100(R1L) 
100(R1), -CSP) 
-CSP) 
54(R1),CSP) 
-(SP) 
66(R1),CSP) 
#L244,-(SP) 
#4,-CSP) 

SP ,RO 

C$PNTS 


#12,SP 
#L245,<B,67(R1)>,<B,55(R1)>,102(R1) 
102(R1), -CSP) 


-(SP ) 
25(R1),CSP) 
-CSP) 
67(R1),(SP) 
#L245,-CSP) 
#4,-(SP) 

SP ,RO 
C$PNTS 


#12, SP 
#L246,<B,70(R1)>,<B,56(R1)>,104(R1) 
104(R1),-CSP) 


sANY DATA COMPARES ? 
;YES, LIST THEM 
3NO, FINISHED 





SEQ S56 








GLOBAL AREAS 


0 
2119 oanaae 


2120 aeante 


2121 comers 


0 
2122 ogg 


0 
2i23 saenee 
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005046 


016146 
005046 
156116 


000056 
000070 
027320 
000004 
000012 
000106 
000057 
000071 
027414 
000004 
000012 
000110 
000060 
000072 
027510 
000004 
000012 
000112 
000061 
000073 
027604 
000004 
000012 
000114 
000062 
000074 
027700 
000004 
000012 
000116 


000063 
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-C(SP) 
56(R1),CSP) 
-(SP) 
7OCR1),CSP) 
#L246,-CSP) 
$4 ,-(SP) 

SP ,RO 
CS$PNTS 

#12, SP 


#L247,<B,710R1)>,<B,S57(R1)>,106(R1) 
— 
57(R1),CSP) 
-CSP ) 
71(R1),CSP) 
L247, -CSP) 
#4,-(CSP) 
SP ,RO 
CS$PNTS 
#12,SP 
#L248,<B,72(R1)>,<B,60(R1)>,110(R1) 
110(R1i), -C SP) 
-CSP ) 
60(R1),(SP) 
CSP ) 


72(R1), (SP) 


#12,SP 
#L249,<B,73(R1)>,<B,61(R1)>,112(R1) 
wc. aati 


-¢ 
61(R1),CSP) 


-( SP) 
73CR1),CSP) 
#249, -(CSP) 
$4, -(SP) 

SP 


#12,SP 
#L250,<B,74(R1)>,<B,62(R1)>,114(R1) 
114(R1),-(SP) 


-(SP) 
62(R1), CSP) 
-(SP) 
74(R1),CSP) 


#250, -C SP) 
a al 


#12,SP 
#L251,<B,75(R1)>,<B,63(R1)>,116(R1) 
116(R1), -(SP) 


-(SP) 
63(R1),(SP) 


ES 


SEQ 57 


— « 


GLOBAL AREAS 
STATISTICAL REP 


2124 


0 
2125 
0 


2126 


0 
2127 
0 


036052 
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ORT SECTION 
005046 CLR 
156116 000075 BISB 
012746 027774 MOV 
012746 000004 MOV 
010600 MOV 
104416 TRAP 
062706 000012 ADD 
PRINTS 
016146 000120 MOV 
CLR 
156116 000064 BISB 
00 CLR 
156116 000076 BISB 
012746 030070 MOV 
012746 000004 MOV 
010600 MOV 
104416 TRAP 
062706 000012 D 
PRINTS 
016146 000122 og 
156116 000065 BISB 
005046 CLR 
156116 000077 BISB 
012746 030164 MOV 
012746 000004 MOV 
010600 MOV 
104416 TRAP 
062706 000012 ADD 
PRINTS 
016146 000124 MOV 
012746 030260 MOV 
012746 000002 MOV 
010600 MOV 
104416 TRAP 
062706 000006 ADD 
10$: ENDRPT 
L10005: 
104425 TRAP 
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-(SP ) 
75(R1),CSP) 


SP 
#L252,<B,76(R1)>,<B,64(R1)>, 120(R1) 
120(R1), -CSP) 

-( SP) 
64(R1),CSP) 
-C SP) 


76(R1),CSP) 
#L252,-CSP) 
#4 ,-C(SP) 

SP ,RO 
CS$PNTS 


#12,SP 
#L253,<B,77(R1)>,<B,65(R1)>,122(R1) 
122(R1), -CSP) 


-CSP) 
65(R1).CSP) 
-(SP) 
77(R1),CSP) 


#L253,-(CSP) 
$4,-(SP) 
SP 


» SP 
#L254,124(R1) 
124(R1), -C SP) 
#L254,-CSP) 
#2,-(SP) 

SP ,RO 
C$PNTS 
#6 ,SP 


CS$RPT 





SEQ 58 
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GLOBAL SUBROUTINES SECTION 


$188 -SBTTL GLOBAL SUBROUTINES SECTION 
2134 SF FSSSESSSSAELASESEASEEAASESASALALSASAARAAALSAASLASAALASLALSELAA KE 
a of FS SSSSASCASSSEESASEEACASESS’ SCEKKASCAASSASLALASEAALAAAL ALA AA LAE AARERS 
2136 3 
2137 ;GLOBAL SUBROUTINES SECTION 
2138 3 THIS SECTION CONTAINS ALL SUBROUTINES AND 
2139 3 INTERRUPT SERVICE ROUTINES THAT ARE AC- 
ores ; CESSED FROM ANYWHERE IN THE PROGRAM. 
2142 5 900060000000000006000000000000000000000000000000000000000000000% 
ane ff SREEASEASASALA SES EERAAESESALALASERALESERAREEASEAAREAERAREALARAKES 
44 
2145 
2146 ff EREEEEEESAAEAEAASEASAASEAEAAREAEARERAARARAEARAARARAARRLALKALALEEE 
2147 5 RR AaaAaaaEAE EEK, KERAAEAEAREEARARARAKRAEARARAAAARAEAARALALKAAAEE 
148 ; 
2149 ; TRAPS 
2150 $ THE ADDRESS OF THIS ROUTINE IS LOADED 
2151 $ INTG VECTOR % WHENEVER THE PROGRAM IS 
2152 ; ATTEMPTING T') ACCESS A PIECE OF HARDWARE 
2153 ; FOR THE FIRSS TIME. IT IS INTENDED TO 
2154 5 CATCH NON-E).ISTENT MEMORY TIMEOUTS IN 
2155 ; THE EVENT TAE HARDWARE IS NOT REALLY PRE- 
2156 $ SENT OR IS MALFUNCTIONING. IT SIMPLY 
$14 ; SETS A FLAG, INDICATING THE TRAP OCCURRED. 
2159 ff ERRRAEEEAAREEAREAAAERAREEEARAREERAKAAAAARAKEAAEARRERARALAAK AE ARS 
ores 5 REREEAREARAREAEAAARERERARAKARERAAAARAKAAKARAAAAREAAREREAKAAKKAS 
1 
2165 036054 BGNSRV TRAP4 
ote 036054 TRAP4: : 
prt! 036054 005237 002276 INC TRP4FG ;SET THE FLAG - TRAP OCCURRED 
2169 036060 ENDSRV 
036060 L10006: 
036060 000002 RTI 
2170 








GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


036062 
036062 


1 
036062 


036070 
036070 
036070 


036070 
6 
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052764 000002 000014 


000002 


5 oS 6646666 46606666646 64 646 66 4646446646646 466646466 64440064646 406460 6060004400464 004 
os 9986406464666 6666 6666 646664646646 466 64666646 66 S4FEAREEEREA RELI OLE EEEREDEE 


3 
; INTRCV 


THIS IS THE TKSO INTERRUPT HANDLER USED BY THE PRO- 
GRAM WHEN INTERRUPTS HAVE BEEN ENABLED. IF THE 
BRFALG IS CLEAR, THE ROUTINE SETS A FLAG INDICATING 
THE EXPECTED INTERRUPT OCCURRED. IF BRFLAG IS SET, 
IT INDICATES THAT PROCESOR PRIORITY WAS SET TO A 
LEVEL THAT SHOULD HAVE INHIBITED THE INTERRUPT, SO 
THE ROUTINE SETS AN ERROR INDICATOR. 


gs SSSA EAEAASESESASEA EASA SLASALEAABAEAEARAKAAALSEALEAAAALALEALALEEES 
5s SESSA AAAESE RESALE ER EAELAREAEARALARASESARAREAKARAAALALALALLEAL‘LE 


BGNSRV INTRCV 


INTRCV:: 
; BIT #BRFLAG, LUNFLG(R4) ;IF NOT PRIORITY LEVEL TESTING 
: BEQ 5$ ; THEN SKIP AROUND 
; MOV #DRPFLG,LUNFLGCR4) ; ELSE SET FAILED BIT 
; BR EXTINT ;RETURN 
5$: BIS #INTFLG, LUNFLG(R4) ;SET THE FLAG 
EXTINT: 
ENDSRV 
L10007: 
RTI 





SEQ 60 








- - —— 
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GLOBAL SUBROUTINES SECTION 





2211 
2212 5 pO O6 4606460466 464606460006 64600 60444040 04 000400000000 000000000800408 
oF 5 5 00666 6064064606646464006446646064064004040404 04466004 0400000000000000400 004 
214 3 
2215 ;ILLINT 
2216 $ THIS HANDLER ROUTINE’S ADDRESS IS LOADED INTO THE 
2217 ; CURRENT UUT‘S VECTOR FOR ALL TESTS THAT DO NOT EN- 
os é ABLE DEVICE INTERRUPTS. 
2220 » peenneebbebneneseneneseenebebeessdeddoeceanenesasorencscecoenncc 
eet 5p RRRERAEAAEAAARAASE SE SAAAASEAEAERELEREESESEASAAAREREREE AE EEEEALE 
2 
2226 036072 BGNSRV ILLINT 
om 036072 ILLINT:: 
> 036072 052764 000001 000014 BIS #DRPFLG, _LUNFLG(R4) 
2230 
2231 036100 ENDSRV 
036100 L10010: 
036100 000002 RTI 





SEQ 61 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


2255 
2256 


036102 


036162 


036164 
036170 
036172 


036176 


036224 
036230 


036232 
036236 
036240 
036244 


036246 


036252 
036252 
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005737 
012727 


000010 
177572 


000001 
002116 
177772 
177756 


002276 
002274 
172516 
000001 
002116 
177772 
177756 


002276 
002274 


002274 


000004 


KTTEST: 


KTTEST 





SEQ 62 


§ OS 4664 466666466 6666666666 £66446 646 04640464 4666606 4660 40464004044 246464 44% 
§ £2266646666 66646 £66646 £4646466 064064 64 66 4EKEKEEKEEESEEEEAERALALRELALELE 


THIS SUBROUTINE IS USED BY THE INIT CODE TO 


DETERMINE IF THE MEMORY MA 
PRESENT. 
SET STATE. 


NAGEMENT UNIT IS 


IF SO, IT RETURNS A FLAG IN THE 


OTHERWISE THE FALG IS CLEAR IN 


WHICH CASE TEST SEVEN IS BYPASSED. 


gf FSSSSSSEASASEEAES* AASKEAAAREKAEAAASALASASALASAALALAAALELALASL ALES 
ss SSSESSSESASAASASSELAAAASACAESESAAAAAAALASLALASALALALALALALE LRRRERE 


SETVEC #VEC4, @TRAP4, #PRIO7 


CLR 
CLRVEC 
MOV 


#PRIO7,-CSP) 
#TRAP4 , -(SP) 
#VEC4, -CSP) 
#3, -(€SP) 
C$SVEC 
#10,SP 
"eae 
lata i 
oe 
-6(PC) 

7-4 

-22(PC) 
.-20 

TRP4FG 

NOKT 

KTFLAG 
en 

- 
 eecibtadalte 
-6(PC) 

4 

“22(PC) 
.-20 

TRP4FG 
KTEXT 
KTFLAG 
KTEXT 
KTFLAG 


#VEC4 
#VEC4,RO 


;SET UP FOR POSSIBLE NXM 


s;ARE YOU THERE, MMU? 
sGIVE NXM TIMEOUT A CHANCE 


;IF NXM OCCURRED 
; THEN NO MMU IS PRESENT 
; ELSE SAY WE FOUND 18 BIT SO FAR 


sNOW LOOK FOR 22 BIT MAPPING 
;GIVE NXM A CHANCE 


;IF NXM OCCURRED 
; THEN 18 BIT IS ALL WE'VE GOT 
; ELSE SAY WE'VE GOT 22 BIT 

; AND BRANCH AROUND NEXT 


sNO MMU - CLEAR FLAG 
sRESTORE VECTOR 
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GLOBAL SUBROUTINES SECTION 


036256 104436 
2273 036260 005037 002276 
2274 036264 000207 
2275 
2276 





TRAP Cs$CVEC 
CLR TRP4FG sMORE HOUSEKEEPING 
RTS PC 





SEQ 63 








-_ 
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GLOBAL SUBROUTINES SECTION —_ SEQ 64 


2281 
2282 
2283 £5 OOO 0646646666 6666 66646 6464646466664 46466666 4066466646 0604640064640000446 4640480 
poe 5 5 2S S6 4666606646466 4646 6666 60666 64466646 646084646 FFE SEKEKEEAEAEAAELE LE LALES 
2286 ;RSTVEC 
2287 THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
2288 :; IN THE PROGRAM TO SET THE UUT‘'S INTERRUPT 
2289 VECTOR WITH THE ADDRESS OF A HANDLER ROUTINE 
2290 ; WHICH WILL CATCH ILLEGAL DEVICE INTERRUPTS, 
2291 SPECIFICALLY “ILLINT”. INTERRUPT PRIORITY 
2292 IS SET TO 0. 
2293 
2294 ff SSSEASESSESASESASALACALAAASLEEAAAAKEALASSASEASAASEAASAALAALALEALR‘SE 
yo ff AESSSASAEESSSASASALELASAAASEAREABASAALALSEALASEAALEALEAEALELALES 
2300 036266 RSTVEC: : 
2301 036266 SETVEC TKVEC(R4), @ILLINT, #PRIOO 
036266 €.2/46 000000 MOV —s- @PRTOO, -(SP) 
036272 012746 036072 MOV -—«@ILLINT, -( SP) 
036276 016446 000004 MOV —- TKVEC(R4), -( SP) 
036302 012746 000003 MOV =: #3, - (SP) 
036306 104437 TRAP —- CSSVEC 
ason 220819 962706 000010 ADD =: #10, SP 
2303 036314 000207 RTS ~—s PC 
2304 
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GLOBAL SUBROUTINES SECTION 
2309 
2310 
23il Sf 9806666666 646646 66666666 66460660646 $6 60004666 6004 0600000000 0464608464040% 
a. ff 2S 66666666666666 6066466 60646646 6664604 $006 00400060000 000464040 040406 
231 3 
2314 ; VECTOR 
2315 ; THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
2316 : IN THE PROGRAM TO SET THE UUT’S VECTOR WITH 
2317 : THE ADDRESS OF A HANDLER ROUTINE WHEN DEVICE 
2318 ; INTERRUPTS HAVE BEEN ENABLED. THE ROUTINE HAS 
2319 $ TWO MODES OF OPERATION: WHEN BRFLAG IS CLEAR, 
2320 ; PROCESSOR PRIORITY IS SET TO ZERO, ALLOWING 
2321 ; DEVICE INTERRUPTS. IF BRFLAG iS SET, PRIORITY 
2322 ; IS SET TO 7. IF AN INTERRUPT OCCURS IN THIS 
2323 ; CASE, AN ERROR IS RETURNED BY THE HANDLER 
pie ; ROUTINE, “INTRCV”. 
; 
2326 ff SESAAAEAAEKASESSESASASEASAEREASESSSASHASAARALEALESAALALALALESEEE 
a ff SREAASEASASASAAASLESASAREEKAKSSSEASERSLAAERALELALELEAALALLALELAL EAL 
2332 036316 VECTOR: : 
2333 036316 032764 000004 000014 BIT #BRFLAG, LUNFLGC(R4) ;IF FLAG IS SET 
2334 036324 001014 BNE 5$ ; THEN SKIP TO SECOND HALF 
2335 036326 SETVEC TKVECC(R4), #INTRCV, #PRIOO s;ELSE LOW PRIORITY 
036326 012746 MOV @PRIOO, -(CSP) 
036332 012746 036062 MOV #INTRCV, -CSP) 
036336 016446 000004 MOV TKVECCR4), -C SP) 
036342 012746 000003 #3,-CSP) 
036346 104437 TRAP C$SVEC 
036350 062706 000010 ADD #10, SP 
Ht 036354 000413 BR EXTVEC ;RETURN 
2338 036356 5$: SETVEC TKVECCR4), @INTRCV, OPRIO7 sHIGH PRIORITY 
036356 012746 000340 MOV @PRIO7,-CSP) 
036362 012746 036062 MOV #INTRCV, -CSP) 
66 016446 000004 MOV TKVECCR4), -C SP) 
036372 012746 000003 MOV @3,-(SP) 
036376 104437 TRAP C$SVEC 
ease 036400 062706 000010 ADD #10, SP 
2340 036404 000207 EXTVEC: RTS PC 
2341 
2342 











SEQ 65 
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GLOBAL SUBROUTINES SECTION 
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005037 
005337 
001373 
005337 
001002 
005237 
000207 


002330 
002324 


002326 
002330 


5 5 922000466 646466 66 600666 646464666 00646066466 6606 646046646446 0060604646460008046008 
os OO O086066 4686646 6666666666 646 6666060060046 64606 64606 15604046040604664604040008 


my 

sPDELAY 

THIS ROUTINE IS USED THROUGHOUT THE PROGRAM TO PROVIDE 

A VARIABLE AMOUNT OF DELAY TIME. THE DELAY WILL BE 
INSTRUCTION EXECUTION TIME DEPENDENT. TWO VALUES MUST 
6E LOADED BY MAINLINE CODE PRIOR TO CALLING PDELAY: 
“INNER” AND “OUTER”. IF SUFFICIENT CALLS TO PDELAY ARE 
MADE SUCH THAT THE OUTER COUNT IS EXHAUSTED, THE ROUTINE 
RETURNS “TOUT” EQUAL TO 1, INDICATING TIMEOUT HAS OCCURRED. 
“INNER” SHOULD BE RE-LOADED BY MAINLINE CODE, PRIOR TO 
CALL TO PDELAY WITHIN A TIMING LOOP. 


§ § SFSSSAAASSSAESASSASESSAEAEAAAARSSAASALSEASHSALALCAS AAALAC SERALERES 
£ fs FSS EASESSSEASASASASEASASAAAAASLAAASCEALAASASASELALAAAERELALESLEEALSE 


PDELAY:: 
CLR TOUT ;CLEAR TIMEOUT INDICATOR 
DEC INNER ;IF COUNT NOT EXHAUSTED 
BNE PDELAY ; THEN KEEP LOOPING 
DEC OUTER ;IF MAJOR COUNT NOT O 
BNE PDLYEX ; THEN LEAVE WITH STATUS = OK 
TOUT ; ELSE SET TIMEOUT 


INC 
POLYEX: RTS PC 





SEQ 66 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


036512 
036514 
036522 
036524 
036532 
036534 


036542 
036550 


036552 
036556 
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001413 
022764 
001013 
022737 
002003 
012737 


013774 
000402 


005237 
000207 


002320 
090000 
000001 
002116 
177772 
177756 
000002 
005700 
004700 
007776 
007776 
002250 


002320 


000000 


000012 
000012 
000012 
002120 
002120 
000002 


FF FOSS S46N646 46464 FES SESSESEEESESSESEAASESESSASESESASESEASLERES ASAE SED EE 
ZF OSSS S46 SSSSEESEEAESEESESAEEAASSSASASESSASSESAKSAAKRSEHAEAEAALELELAOELS 


;STEP1 
a 


STEP1:: 


1$: 


STPIER: 
STPIEX: 


THIS SUBROUTINE IS RESPONSIBLE FOR PERFORMING 


STEP 1 OF THE UQ-PORT INIT SEQUENCE. 


SPECIFI- 


CALLY, IT WILL INITIALIZE THE UUT BY WRITING 


TO ITS IP REGISTER. 


AFTER A BRIEF DELAY, IT 


WILL READ THE SA REGISTER TO INSURE THAT THE 
STEP 1 BIT IS SET AND THE ERROR BIT IS CLEAR. 
IT WILL THEN WRITE THE FIRST LOCATION OF THE 
STEP TABLE (SET UP BY MAINLINE CODE) TO THE 


UUT‘S SA REG. 


IF ALL STEPS COMPLETE SUCCESS- 


FULLY THE ROUTINE RETURNS “STEPST” CLEARED; 
OTHERWISE “STEPST” IS RETURNED INDICATING A 


FAILURE OCCURRED. 


§ SSSSSESSSSASESASSESASASCASHAESRAKERALSESEAKELSALESESAAS HELE LEAREEEREES 
 SSSSASSEASSESEARASAAASAL AEAAKEKEAASEAEASHSAAASASLEAAAAEALEESERELE 


MOV 
BR 

INC 
RTS 


SEQ 67 


STEPST ;CLEAR THE STATUS INDICATOR 
$0,@TKIP(R4) = ;INIT THE UUT 
#1,(PC)« 
0 
LSDLY. (PC) 

-6(PC) 

a 

-22(PC) 

-20 
@TKSACR4),TKSASV(R4) = ;GET THE SA REG CONTENTS 
#8 .S1!5.QB!B.DI!8.00!B.MP, TKSASV(R4) 
1s ;IF QBUS, BRANCH 
#4700, TKSASV(R4) ;IF NOT UNIBUS 

STPIER ; THEN TAKE ERROR EXIT 
#7776, LSHIME ; ELSE IF LESS THAN OR EQUAL TO 128K MEMORY 
1$ THEN BRANCH 
#7776,L$HIME : ELSE SET UP L$HIME 
STPTBL,@TKSA(R4); | WRITE HOST’S STEP 1 RESPONSE 
STPIEX ; AND LEAVE SHOWING SUCCESS 
STEPST ;SET ERROR INDICATOR 
PC 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


036560 
036560 


036564 
036570 
036572 
036576 
036602 
036604 


036606 
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012702 


012703 
006303 
063703 
012722 
005305 
001374 


000207 


060000 
000024 


002306 
177777 


SEQ 68 


SF FSESESSESESSESSEEASEESSEASA SASHES EASEEAASEKSAALASALE SACHA SELAZAZESEEES 
Ss 2226664666 6664666666666 66 64606 664464646 6464664646066460464646 6464646064240 604608 


THIS SUBROUTINE WILL FILL THE COMMUNICATION WITH AN 


THE LENGTH OF THE AREA IN USE 


BY THE CURRENT TEST IS CONTAINED IN “CMARLG”. 


;BAKPAT 
; 
$ ALL i‘S DATA PATTERN. 
; 
33* 
:3* 
BSAKPAT:: 
MOV #COMMBF ,R2 
MOV #20. ,R3 
ASL R3 
ADD CMARLG,R3 
i$: MOV #-1,CR2)+ 
DEC R3 
BNE i$ 
RTS PC 


SSESASSASEAASESASEKEEASCALASAAASSASEAASEAKASAAALRAAALEASE SAREE EES 
SESEAASECALE SA SASSEAASSSASASASAASKASASASASLASALZALSEAAALARACALELALE 


;STARTING ADDRESS OF COMM AREA 
;-20 WORDS 

;BUFFER LENGTH IN FRONT OF AREA 
;sMULTIPLIED BY 2 

;ADD COMM AREA LENGTH USED 
;sWRITE THE DATA 

;IF NOT DONE YET 

; THEN DO IT AGAIN 


ere er 


— |e 
—— ial 
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GLOBAL SUBROUTINES SECTION 
2461 
2462 
2463 gs 2S S046 464646 4641446664446 646 6%4646 4606446 46444664 4464646444644 6046466464644 0464 e264 
2464 5 5 986606 646464664646 6666464646046 6400464004644 46604 0040400046440 040446 04064646444 
2465 $ 
2466 ;CHKCOM 
2467 ; THIS ROUTINE IS CALLED BY TESTS DOING THE PURGE/POLL 
2468 $ CHECK. IT IS USED TO VERIFY THAT THE PORT LEFT THE 
2469 3 COMMUNICATIONS AREA CLEARED. ADDITIONALLY, IT CHECKS 
2470 5 THE 20 WORDS PRECEDING AND SUCCEEDING THE COMM AREA 
ae7t ; TO MAKE SURE THE PORT DIDN'T GO OUTSIDE THE COMM AREA. 
2473 Pete rt tt ete te ete ti ttt Tt TTT TTT TTT TT TTT TTT TTT TTT TTT TTT TT TTT TTT 
2474 5 ASR AAEEAAEEREAAEERERAAASESAASEAREAREREAREARERSAALLELARSLEALARLS 
2478 
2479 036610 CHKCOM: : 
2480 036610 012701 177777 MOV #-1,R1 ;TEST DATA 
2481 036614 012702 060000 MOV #COMMBF ,R2 :STARTING ADDRESS 
2482 036620 012703 000022 MOV #18. ,R3 sFIRST COUNT 
2483 036624 020122 is: CMP R1,CR2)+ ;IF NOT ALL 1'S 
2484 036626 001022 BNE 15$ ; THEN GO REPORT ERROR 
2485 036630 005303 DEC R3 ;IF NOT ALL DONE 
te 036632 001374 BNE i$ ; THEN GO CHECK ANOTHER 
2488 026634 005001 CLR Ri ;TEST DATA FOR PRINTOUT 
2489 036636 013703 002306 MOV CMARLG ,R3 ;SET UP COUNTER FOR COMM AREA 
2490 036642 005722 5$: TST CR2)+ ;IF NOT O 
2491 036644 001013 BNE 15$ ; THEN GO REPORT ERROR 
2492 036646 005303 DEC R3 ;IF NOT ALL DONE 
oo. 036650 001374 BNE 5$ ; THEN GO CHECK ANOTHER 
2495 036652 012701 177777 MOV #-1,R1 ;TEST DATA FOR PRINTOUT 
2496 036656 012703 000024 MOV #20. ,.R3 ;SET UP COUNTER FOR POST COMM AREA 
2497 036662 020122 10$: CMP R1i,CR2)+ :IF NOT ALL 1'S 
2498 036664 001003 BNE 1i5$ ; THEN GO REPORT ERROR 
2499 036666 005303 DEC R3 ;I1F NOT ALL DONE 
2500 036670 001374 BNE 10$ ; THEN GO CHECK ANOTHER 
Fiat 036672 000422 BR CKCMEX. ; ELSE RETURN 
2503 036674 162702 000002 15$: SUB #2,R2 ;ADJUST ADDRESS FOR PRINTOUT 
2504 036700 022737 000010 002114 CMP #8. ,LS$TEST ;1F IN TEST 8 
2505 036706 001405 BEQ 20$ ; THEN DO ALTERNATE PRINTOUT 
2506 036710 ERRDF 1,EMSG14 ,PRIPAD ;"PURGE/POLL TEST FAILED” 
036710 104455 TRAP CSERDF 
036712 000001 -WORD i 
036714 030677 -WORD E&MSG14 
036716 033022 -WORD PRIPAD 
pid 036720 000404 BR 25$ ;COMMON EXIT 
2509 036722 20$: ERRDF 2,EMSG15,PRIVAD ;"EXTENDED ADDRESS TEST FAILED” 
036722 104455 TRAP CSERDF 
036724 000002 -WORD 2 
036726 030726 -WORD EMSGi5 
one 036730 033046 -WORD PRIVAD 
2511 036732 25$: DODU LOGUNT 
036732 013700 002312 MOV LOGUNT ,RO 


= <a A CL LLL LLL LLL A LED LLL 
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036736 104451 TRAP CsD0DuU 


2512 
co. 036740 000207 CKCMEX: RTS PC 











SEQ 70 











- - 


GLOBAL AREAS MACRO YOS.02 Thursday 25-Jul-85 09:27 Page 42 SEQ 71 
GLOBAL SUBROUTINES SECTION 
2519 
2520 
2521 5p 900666646646 646466 0464460606440 06 0464464444006 040404540 04044004 004046048 460004408 
aaa 5 5 906 066466464606446 00606 06 6604064406 04406 00 0400000004040000046 0000004 
252 s 
2524 ; INTMMU 
2525 3 THIS SUBROUTINE IS CALLED FROM TEST 8 TO INITIALIZE 
2526 ; MEMORY MANAGEMENT REGISTERS. ALL FAR‘'S EXCEPT ONE 
2527 ; ARE SET UP TO MAP VIRTUAL ADDRESSES INTO THE LOWEST 
2528 ; 32K OF PHYSICAL MEMORY. KPAR7 IS SET UP TO MAP TO 
2529 ; THE I/0 PAGE. THE PAR REGISTER THAT CORRESPONDS TO 
2530 : THE VIRTUAL ADDRESS OF THE COMMUNICATION AREA IS SET 
2531 3 UP TO POINT TO THE SECOND 32K OF PHYSICAL MEMORY. 
2532 : ALL PDR‘S ARE INITIALIZED TO THE SAME VALUE; NAMELY, 
2533 : UPWARD EXPANDABLE, READ/WRITE ACCESS ENABLED, AND THE 
a ; FULL 8KBYTE PAGE IS ACCESSIBLE. 
2536 Pettitt tt tt ttt tt et tT TT TTT TTT TT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT 
2537 etre et tit ttt TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TT TTT 
2541 
2542 036742 INTMMU: : 
2543 036742 012703 172300 MOV #KPDRO,R3 ;START OF PDR ADDRESS RANGE 
2544 036746 012702 172340 MOV #KPARO ,R2 ;START OF PAR ADDRESS RANGE 
cee 026752 005001 CLR Ri ;STARTING RELOCATION VALUE 
2547 036754 010122 1$: MOV R1,CR2)+ ;LOAD RELOCATION VALUE 
2548 036756 012723 077406 MOV #77406 ,CR3)+ ;LOAD PDR 
2549 036762 062701 000200 ADD #200 ,R1 ;sADJUST RELOCATION VALUE 
2550 036766 022701 002000 CMP #2000,R1 ;IF NOT AT THE END 
pot 036772 001370 BNE i$ ; THEN DO ANOTHER ONE 
2553 036774 010137 172346 MOV R1, KPAR3 ; ELSE SET THIS REG TO NEXT 32K 
2554 037000 012737 007600 172356 MOV #7600, KPAR7 318 BIT I/0 PAGE 
2555 037006 032737 000002 002274 BIT #B1IT1,KTFLAG ;IF 22-BIT BUS NOT AVAILABLE 
2556 037014 001406 BEQ 2$ ; THEN GO TURN MMU ON 
2557 037016 012737 177600 172356 MOV #177600, KPAR7 ; ELSE SET 22 BIT I/O PAGE 
oon 037024 012737 000020 172516 MOV #MM220N,MMUSR3 ; AND ENABLE 22 BIT MAPPING 
2560 037032 012737 000001 177572 23: MOV #MMON , MMUSRO ;TURN ON THE WHOLE THING 
2561 037040 000207 RTS PC 
2562 
2563 
2564 037042 PRTINT: 
2565 037042 010174 000000 MOV R1, ATKIPCR4) ;INITIALIZE THE DRIVE 
2566 037046 012703 037264 MOV #INTTBL,R3 :PUT THE TABLE ADDRESS INTO R3 
2567 037052 012701 004000 MOV #S1,R1 ;SET UP TO BEGIN AT S7EP 1 
2568 037056 005037 002316 CLR INISTP ;CLEAR THE STEP TRACKER 
2569 037062 012737 000030 003024 LOOP: MOV #24, ,CNTHI ;SET UP THE TIME OUT COUNTER 
2576 037070 005002 CLR R2 ;CLEAR R2 
2571 037072 005202 ILOOP: INC R2 ; INCREMENT HI TIME OUT VALUE ? 
2572 037074 001016 BNE 2$ ;LF NOT, BRANCH 
2573 037076 005337 003024 DEC CNTHI ;ELSE, DECREMENT LO TIMEOUT 
2574 037102 001013 BNE es ;BRANCH IF NO TIME OUT 
2575 037104 017464 000002 000012 MOV OTKSACR4), TKSASVC(R4) ;SAVE THE SA FOR THE ERROR PRINTOUT 
2576 037112 ERRDF 51.,WRER1,WRINTO ;PRINT PORT INIT FAILURE 
037112 104455 TRAP CSERDF 
037114 000063 -WORD 51 
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037116 


037262 


037264 
037266 
037270 
037272 
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032347 
033176 


032401 


ee .- WORD WRER1 
-WORD WRINTO 
DODU LOGUNT 
002312 MOV LOGUNT ,RO 
TRAP CsD0DU 
BR 100$ 
000002 2$: BIT @TKSACR4),R1 
BEQ ILOOP 
100000 000002 Hd er 
000002 000012 MOV @TKSACR4 ), TKSASVCR4) 
ERRDF  52.,WRER2,WRPRTE 
TRAP CSERDF 
-WORD 52 
-WORD WRER2 
-WORD WRPRTE 
DODU LOGUNT 
002312 MOV LOGUNT ,RO 
TRAP C$DODU 
BR 100$ 
002316 3$: INC INISTP 
000002 MOV CR3)+,3TKSACR4) 
ASL Ri 
BPL LOOP 
003004 MOV #RSPRNG , R2 
002574 MOV #RSPBUF ,R3 
5$ MOV R3,CR2)+ 
100000 MOV #0OWN , CR2 )+ 
000104 ADD #RSPSTP,R3 
003004 CMP #RSPEND ,R3 
BNE 5$ 
003004 023040 MOV #RSPRNG ,RSPSAV 
003014 023036 MOV #CMORNG , CMHDSAV 
003032 CLR CMDREF 
100$: RTS PC 
;INIT DATA TABLE 
INTTBL : -WORD 104400 
-WORD RSPRNG 
-WORD 0 
WORD GO 


SEQ 72 


;DROP THE UNIT 


sEXIT ROUTINE 

;TEST FOR STEP BIT FROM DRIVE 
sLOOP UNTIL SOMETHING SETS 
;CHECK FOR ERROR 

;NO ERROR, KEEP GOING 

s;SAVE THE SA CONIENTS 

;PRINT ERROR 


;DROP THE UNIT 


s;EXIT ROUTINE 

s; INCREMENT THE STEP TRACKER 

;WRITE WORD FROM TABLE TO CONTROLLER 
sSHIFT TO NEXT STEP 

;IF NOT AT LAST STEP LOOP 

sPUT THE RESPONSE DESCRIPTOR ADD IN R2 
;PUT THE RESPONSE BUFFER ADDRESS IN R53 
;sPUT THE BUFF ADD IN THE DESCRIPTOR 
;SET THE DESCRIPTOR TO THE CONTROLLER 
sSTEP TO THE NEXT BUFFER SLOT 

sARE WE AT THE END OF THE BUFFER ? 
;NO, KEEP GOING 

;SET UP TO USE FIRST RESPONSE BUFFER 
sSET UP TO USE FIRST COMMAND BUFFER 
ae COMMAND REFERENCE # TO 0 








GLOBAL AREAS 


2609 037274 
2610 037274 
2611 037300 
2612 037304 
2613 037312 
2614 037314 
2615 037320 
2616 037326 
2617 037330 


2647 037524 


icsassnpiinpesencnnnsaelsslilaitthenieneemslcutenctessae 


en 
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013700 
104451 
000470 


104455 


003032 
037632 
000001 


037774 
000001 


024035 
000012 


000010 
002406 
000003 
024214 
000043 
024265 
000103 
024265 


002312 


002312 


000014 


000014 


000014 


000012 


060012 


000012 


000113 


CLSDRV:: 


5$: 


7$: 


9$: 


10$: 


11$: 


12$: 


1S$: 


CMDREF 
PC ,PRTDORV 


#DRPFLG, LUNFLG(R4) 


100$ 
PC ,CDRECV 


@DRPFLG. LUNFLG(R4) 


100$ 
#WRe ,R2 
P.STS(R3) 


i5$ 
#DUPFLG, LUNFLGC(R4) 
12$ 


#ONLINE,RS 
10$ 
#3 ,P .STSCR3) 
8$ 

GWR7 ,R2 

10$ 
#43,P.STSCR3) 
9$ 

#URS ,R2 

0$ 
#103,P.STSCR3) 
11$ 


#UR8 ,R2 
57.,WRER3,WRCMDE 
sERDF 


20 
P.EXT1ICR3), #113 
10$ 





SEQ 73 


;ADD 1 TO THE COMMAND REFERENCE NUMBER 
:GQ SEND THE COMMAND 
:1S THE DRIVE AVAILABLE 


;IS THE DRIVE AVAILABLE 

;GET OUT IF NOT AVAILABLE 

sR2 GETS ERROR MESSAGE ADDRESS 
sWAS STATUS “NORMAL”? 

;YES - BRANCH 

1S IT A DUP COMMAND ? 

;YES, PRINT DUP ERROR 

;IS IT AN ONLINE COMMAND 

sNO, GO PRINT ERROR 

sWAS IT A UNIT UNKNOWN ERROR ? 
sNO, CONTINUE 

sR2 GETS ERROR MESSAGE ADDRESS 
;PRINT ERROR MESSAGE 

;WAS IT A NO MEDIA MOUNTED ERROR ? 
s;NO, CONTINUE 

sR2 GETS ERROR MESSAGE ADDRESS 
sPRINT ERROR MESSAGE 

sWAS IT A UNIT INOPERATIVE ERROR ? 
sNO, MUST BE INVALID STATUS 
sR2 GETS ERROR MESSAGE ADDRESS 
sGET READY TO PRINT FAILURE 


;DROP THE UNIT 

;GET OUT ON ERROR 

;GET READY TO PRINT FAILURE 
;DROP THE UNIT 

;GET OUT ON ERROR 

s;GET READY TO PRINT FAILURE 


;DROP THE UNIT 


;GET OUT ON ERROR 

;WAS IT A GET DUST STATUS COMMAND ? 
3NO, CONTINUE 
;1ST BYTE OF PROGRAM EXTENSION = "K” ? 
;NO, ERROR 
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2648 037526 
2649 037534 
2650 037536 


037544 


037766 
037772 
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126327 


013765 


033222 


013700 
104451 
000411 
062701 
022701 
001002 
012701 
010137 
000207 


060015 
000016 


002312 
000004 
003024 


003014 
023036 


000000 
177776 
000014 
177777 
177777 


000002 


000012 


20$: 


30$: 
100$: 


PRTDRV:: 


1$: 
2s: 


33 SBRGRGERGRGRGRGEGED 


P .EXT2(R3). 865 
10$ 
P.EXT3(R3), 260 
10$ 
DUSTFL(R3) #7 
10$ 
P.INDICR3),¢0 
10$ 
P.IND2(R3),¢0 
10$ 
TIMOUTC(R3),#12 
10$ 


30$ 
#RCVDAT,RS 
30$ 
PC,L2DATA 
ITRCNT 

S$ 


PC 


CMDSAV ,R1 
CMDREF ,P .CRFCRS) 
#2 ,CRDCRS) 
#DUPFLG,LUNFLGCR4) 


1$ 

_ 

#1, CONIDCRS) 

RS,CR1) 

#OWN ,HIADDRCR1 
@TKIPCR4 ) 

STKSACR4 ) 

10$ 
OTKSACR4 ), TKSASVC(R4) 


53. ,WRER4, WRPRTE 
goad 


$ 
#CMDRNG,R1 
R1,CMDSAV 
PC 





SEQ 74 


;2ND BYTE OF PROGRAM EXTENSION = “5" ? 
;NO,. ERROR 
;3RD BYTE OF PROGRAM EXTENSION = “0” ? 
7NO, ERROR 
;FLAGS = 7 ? 
:NO, ERROR 
:1ST WORD OF PROGRESS INDICATOR = 0 ? 
;NO, ERROR 
— — PROGRESS INDICATOR = 0 ? 
> Py 
; TIMEOUT VALUE = 12 ? 
:NO, ERROR 
;NO ERRORS, RETURN 
;WAS IT A RECEIVE DATA COMMAND? 
;NO, CONTINUE 
;YES, GO READ DIAGL2 PROGRAM STATUS 
;SUBTRACT 1 FROM TIMES TO DO 
;GO SEND IT AGAIN 
TURN 


;SET UP COMMAND RING POINTER 

;PUT COMMAND REFERENCE # INTO PACKET 
;sPUT THE CREDIT LIMIT INTO THE PACKET 
;IS IT A DUP COMMAND? 

s;NO, CONNECTION TYPE = 1 
ae TYPE = 2 


;CONTI 

sPUT THE CONNECTION TYPE INTO THE PACKET 
;sPUT THE PACKET ADDRESS INTO THE DESCRIPTOR 
;SET THE OWNERSHIP BIT OF THE DESCRIPTOR 
;READ THE IP REGISTER 

sREAD THE SA REGISTER 

;BRANCH IF NO ERRORS 

sSAVE THE SA FOR THE ERROR PRINTOUT 

;PRINT PORT DETECTED ERROR 


;DROP THE UNIT 


;GET OUT 

sADJUST RESPONCE POINTER FOR NEXT TIME 
sARE WE AT THE END ? 

;NO, GET OUT 

:SET Ri TO TOP BUFFER 

pe ig COMMAND RING LOCATION 





ee 


2693 


2730 


2731 


GLOBAL AREAS 


037774 
037774 


040206 
040210 
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000412 
012737 


104455 
000070 
032474 
033410 


013700 


104451 
000207 


013701 


. 001010 


104455 
000066 
032525 
033466 


012737 


104455 
000067 
030465 
033222 


013700 
104451 
000404 


040102 
000091 


002312 


023040 


000225 


003024 


002312 
000002 
000012 
032640 


002312 





000014 


002310 


003024 


000012 


002310 


CDRECV:: 
i$: 


15%: 
10$: 


100$: 


PDRECV:: 


1$: 
5$: 


10$: 


PC ,PDRECV 

@DRPFLG, LUNFLGC(R4 > 
100$ 

CR1),R3 
 aiaaatiaaaas ncaa 
10$ 

#OWN ,HIADDRC(R1 


56. ,WRERS, WRSEQE 
CSERDF 
36 


RSPSAV,R1 
#225 ,CNTHI 


$ 
STKSACR4 ), TKSASV(R4) 
TKSASVC(R4 ) 

20$ 

#CTRL,FRUIS 
55.,EMSG9,WRPRTE 
CSERDF 

55 


EMSG9 
WRPRTE 
LOGUNT 
LOGUNT ,RO 
C$D00U 
100$ 





SEQ 75 


sCALL PORT DRIVER RECEIVE 

sIS THE DRIVE AVAILABLE 

;GET OUT IF NOT AVAILABLE 

;SET UP RESPONCE BUFFER POINTER 

3IS THIS THE COMMAND THAT IS EXPECTED ? 
;GET OUT IF WRONG RESPONCE 

sGIVE THE CONTROLLER THE RING BACK 
sADJUST RESPONCE POINTER FOR NEXT TIME 
;ARE WE AT THE END ? 

3NO, GET OUT 

;SET Ri TO TOP BUFFER 

sSAVE THE POINTER FOR NEXT TIME 


sPRINT CONTROLLER ERROR 
;PRINT COMMAND OUT OF SEQUENCE ERROR 


;DROP THE UNIT 


;RETURN 


;PUT THE RESPONSE RING SAVE IN R1 
;SET UP THE TIME OUT COUNTER 
;CLEAR Re 

s INCREMENT HI TIME OUT VALUE ? 
;IF NOT, BRANCH 

sELSE, INCREMENT HI TIMEOUT 

sKEEP GOING ,NO TIME OUT YET 
sPRINT COMMAND TIMEOUT MESSAGE 


;GO DROP THE UNIT 


;GET OUT ON ERROR 

;GET SA CONTENTS 

;CHECK FOR SA ERROR 

;BRANCH IF NO ERROR 

;LOAD FAILING FRU 

sPRINT SA CONTENTS IN ERROR MESSAGE 


;GO DROP THE UNIT 


;GET OUT ON ERROR 





—— 
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100000 000002 20%: 


2732 
27 


™ 
Oot 
Ab oi 


040212 
040220 
040222 
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032761 


001336 


000207 


022703 
001003 
012702 
000446 


022703 
001003 
012702 
000440 


022703 


022703 
001003 


060000 
000001 


000002 
000002 
177740 
000037 
000002 


032640 
000037 


000001 


023312 
032655 


000002 
023322 


000012 
023332 


000024 
023342 


000025 
023352 


000026 


002310 


002310 


100$: 


5$: 


10$: 


15$: 


20$: 


253: 


BIT 
BNE 
RTS 


—, 


PC 
Ri, -(SP) 


EXI 
L2STACR1), #0 
GOABO 
L2STACR1),R3 
#177740,R3 
#37,R3 
MSCPER 
L2STACR1),R3 
#CTRL,FRUIS 
#000037 ,R3 


#1.,R3 

S$ 

#DCERR ,R2 
#ORVE,FRUIS 
40$ 

#2.,R3 

10$ 
#CNTERR,R2 
40$ 

#10. ,R3 
i5$ 
#INVSTA,R2 
40$ 


#20. ,R3 
20$ 
#BPNERR , R2 
40$ 

#21. ,R3 
25$ 
#RSPADD,R2 
40$ 


#22.,R3 
30$ 





SEQ 76 


;IS THE SLOT SET TO US ? 
;KEEP GOING TILL TIMEOUT OR SUCCESS 
;RETURN 


;SAVE REGISTERS 


;GET START ADDRESS OF RECEIVE DATA 
sANY NEW INFORMATION ? 

;NO, RETURN 

sYES, LOCAL PROGRAM FINISHED ? 
;YES, SET ABORT FLAG 

;GET LEVEL 2 PROGRAM STATUS 

sMASK OFF UPPER 11 BITS OF STATUS 
;L2 MESSAGE IF 1ST 5 BITS SET 
;TMSCP COMMAND ERROR OTHERWISE 
;GET LEVEL 2 PROGRAM STATUS 

;NO, SET FAILING FRU TO CONTROLLER 
sMASK OFF UNUSED BITS OF STATUS 


sIS IT A DATA COMPARE ERROR ? 
;NO TRY AGAIN 

sSET UP TO PRINT ERROR 

sSET FRU CALLOUT TO DRIVE 

;GO PRINT IT 


sIS IT A CONTROLLER ERROR ? 
;NO TRY AGAIN 

:SET UP TO PRINT ERROR 

;GO PRINT IT 


;IS IT AN INVAILID STATUS ERROR ? 
;NO TRY AGAIN 

;SET UP TO PRINT ERROR 

;GO PRINT IT 


:IS IT A BAD PATTERN NUMBER ERROR ? 
sNO TRY AGAIN 

;SET UP TO PRINT ERROR 

;GO PRINT IT 


:IS IT A RESPONSE ADDRESS ERROR ? 
sNO TRY AGAIN 

;SET UP TO PRINT ERROR 

;GO PRINT IT 


;I1S IT A HOST BUFFER ADDRESS ERROR ? 
;NO TRY AGAIN 





-_ -~ 
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-— 


2789 040432 
2790 040436 
2791 
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012702 


012237 
012237 
012237 
012237 


012237 
012237 


104460 
052764 


104424 


023362 


000014 
032655 


000010 
023062 


023052 


000020 





MOV #HBF ADD ,R2 
BR 40; 
30$: CMP #23. .R3 
BNE 35$ 
MOV #UNERLG,R2 
BR 40$ 
35$: CMP #24. ,R3 
BNE 36$ 
MOV @RSPTO.R2 
BR 40$ 
36$ MOV #INVSTA,R2 
40$: MOV (R2)+,ERRTYP 
MOV (R2)+,ERRNBR 
MOV (R2)+, ERRMSG 
MOV (R2)+, ERRBLK 
ERROR 
TRAP CSERROR 
BR GOABO 
MSCPER: CMP #12,R3 
BEQ 10$ 
CMP #14,R3 
BEQ 10$ 
002310 5$: MOV #DRVE,FRUIS 
10$: DEC R3 
MUL #10,R3 
MOV #L2ETBL,R2 
ADD R3,R2 
MOV C(R2)+, ERRTYP 
MOV (R2)+,ERRNBR 
MOV (R2)+, ERRMSG 
MOV (R2)+, ERRBLK 
ERROR 
TRAP CSERROR 
000014 GOABO: BIS @ABTFLG, LUNFLG(R4) 
DORPT 
TRAP CSDRPT 
EXIT: MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
RTS PC 


ENDMOD 
. TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 


BGNMOD 





SEQ 77 


;SET UP TO PRINT ERROR 
;GO0 PRINT IT 


;IS IT A UNKNOWN ERROR LOG RECIEVED ? 
3NO TRY AGAIN 

;SET UP TO PRINT ERROR 

;GO0 PRINT IT 


:IS IT A RESPONSE TIME OUT ERROR ? 
;NO TRY AGAIN 
;SET UP TO PRINT ERROR 

INT IT 


;SET UP TO PRINT ERROR 


s;LOAD ERROR TYPE 

s;LOAD ERROR NUMBER 

sLOAD ERROR MESSAGE ADDRESS 
;LOAD ERROR SUBROUTINE ADDRESS 
;CALL “ERROR” MACRO 


sABORT MICRODIAGNOSTIC 

;sIS IT A CONTROLLER ERROR ? 

sYES, SET FAILING FRU TO CONTROLLER 
sIS IT A FORMATTER ERROR ? 

sYES, LEAVE FAILING FRU AS CONTRLLOER 
;NO, SET FAILING FRU TO DRIVE 


sR3 IS OFFSET INTO TMSCP ERROR TABLE 

;sGET TMSCP ERROR TABLE START ADDRESS 

sR2 POINTS TO ENTRY IN TMSCP ERROR TABLE. 
sLOAD ERROR TYPE 

;LOAD ERROR NUMBER 

sLQAD ERROR MESSAGE ADDRESS 

sLOAD ERROR SUBROUTINE ADDRESS 

sCALL “ERROR” MACRO 


;SET ABORT FLAG 
;DUMP NORMAL COMPLETION STATISTICS 


sRESTORE REGISTERS 
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INITIALIZE SECTION 


-— 


040644 
2892 040646 
040646 
2893 
2894 040650 
040650 
040654 
2895 040656 
040656 


2896 
2897 040660 
0660 


2907 040716 
bee 040720 


290 

2910 040724 
040724 

2911 040726 

2912 040732 

2913 

2914 040740 


012700 
104447 


103421 
012700 
104447 
103415 
012700 
104447 
103411 
012700 
104447 
103422 
012700 
104447 
103465 
000423 


012737 
005037 


104433 
005237 
012737 
005237 


000037 


000034 


000035 


000036 


000000 
002274 
002212 
001400 


036102 


002270 
177777 


002312 


002270 


002120 


002312 


- SBTTL 


37 


LSINIT:: 


NUPASS: 


INITIALIZE SECTION 


BGNINIT 


EF . START 

#EF .START,RO 
CS$REFG 
BCOMPLETE START 
BCS START 


READEF #E€F .RESTART 


MOV @EF .RESTART,RO 
TRAP C$REFG 
BCOMPLETE START 
BCS 

READEF EF .PWR 

MOV EF .PWR,RO 
TRAP Cc 

BC ETE START 
BCS 

READEF EF .NEW 

MOV EF .NEW,RO 
TRAP CSREFG 
BCOMPLETE NUPASS 
BCS NUPASS 
REACEF #€F . CONTINUE 
MOV @€F . CONTINUE ,RO 
TRAP CSREFG 
BCOMPLETE END 
BCS END 

BR NEXT 

MOV #0 ,PASCNT 
CLR KTFLAG 

MOV OLUNBLK ,R4 
CMP #1400, LSHIME 
BHIS NUPASS 

JSR PC .KTTEST 
BRESET 

TRAP CSRESET 

INC PASCNT 

MOV @-1,LOGUNT 
INC LOGUNT 








SEQ 78 


A | 
THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 


;IF TH.S IS A FRESH START 

; THEN GO TO START 

:IF THIS IS A RESTART 

; THEN GO TO START 

sIF POWER-FAIL OCCURRED 

; THEN START FROM THE BEGINNING 
;IF THIS IS A NEW PASS 

; THEN SKIP START UP CODE 
sIF THIS IS A CONTINUE 

; THEN SKIP ALL INIT CODE 
;JUST HERE FOR NEXT UUT 


sINITIALIZE PASS COUNT 

sIN CASE WE'RE STARTED > THAN ONCE 
sR4 WILL ALWAYS POINT TO LUNBLK 
sIF <= 28KWORDS OF MEMORY PRESENT 
; THEN SKIP NEXT 

; ELSE SEE IF MM) IS PRESENT 


s;CLEAR THE WORLD 


sUPDATE THE PASS COUNT 
sINITIALIZE LOGICAL UNIT COUNT 


sPOINT TO NEXT UUT 








MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


2915 040744 


SD TN I 


041046 


041076 
041076 
041076 


023737 
001433 


104411 
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002312 


002312 


000000 
000002 
000002 
000004 
000006 
036266 
002312 


041046 
000002 


000006 


116 


002012 CMP LOGUNT ,L SUNIT 
BEQ END 
GPHARD LOGUNT,RO 
MOV LOGUNT ,RO 
TRAP C$GPHRD 
BNCOMPLETE NEXT 
Bcc NEXT 
MOV CRO), TKIPCR4) 
MOV C(RO)+, TKSACR4) 

6000002 ADD #2, TKSACR4) 
MOV (RO)+, TKVECCR4) 
MOV CRO) .MSCPUNC( R4 ) 
JSR PC .RSTVEC 
PRINTF #@IMSG,LOGUNT 
MOV LOGUNT , -(SP) 
MOV #IMSG, -C SP) 
MOV SP RO 
TRAP CSPNTF 
ADD #6 ,SP 

END: 
EXIT INIT 
TRAP CSEXIT 
-WORD Li0O011-. 
045 IMSG: ASCIZ ?SNSATESTING UNIT #D1SN? 
EVEN 
ENDINIT 
Li0011i: 

TRAP CsINIT 








SEQ 79 


sIf WE'VE PASSED MAXIMUM UUT'S 
; THEN LEAVE INIT 


sGET P-TABLE FOR THIS UNIT 


;TRY AGAIN 


sPUT IP REG ADDRESS IN LUNBLK 

; AND ANOTHER COPY IN LUNBLK 

sMAKE IT THE SA REG ADDRESS 

;GET THE VECTOR INTO THE LUNBLK 

sPUT THE T/MSCP UNIT # IN LUNBLK 
sSET UUT VECTOR FOR ILLEGAL INTRPTS. 
;"TESTING UNIT N” 














——— 
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CLEANUP CODING SECTION 


2948 -SBTTL CLEANUP CODING SECTION 
2949 
2950 z* 
2951 : THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
pi 3 TER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
2954 
2955 041100 
2956 041100 LS$CLEAN:: 
2963 041100 032764 0000006 002212 BIT &T9OFLAG, LUNBLK(R4) ;IF NOT HERE FROM TEST 9 
aus 041106 001400 BEG ENDCLE ; THEN SKIP THE REST 
2966 sEVENTUALLY MORE CODE WILL BE PLACED HERE TO GUARANTEE THAT AN ABORT 
to ;COMMAND IS ISSUED TO THE UUT TO STOP EXECUTION OF THE LOCAL PROGRAM. 
eH 041110 005064 000014 ENDCLE: CLR LUNFLG(R4) ;CLEAR OUT THE LUN FLAGS 
2971 sNOTE: THIS LINE OF CODE MAY HAVE TO BE REMOVED TO HANDLE tC FOLLOWED 
2972 :BY A PROCEED COMMAND CORRECTLY. 
2973 061114 CLRVEC TKVECCR4) ;PUT “TRAP CATCHER” INTO VECTOR 
041114 016400 000004 MOV TKVEC(R4),RO 
041120 104436 TRAP CscCvec 
2974 
2975 041122 EXIT CLN 
041122 104432 TRAP CSEXIT 
041124 000002 -WORD L10012-. 
2976 
2988 
2989 EVEN 
2990 
2991 041126 ENDCLN 
041126 L10012: 
041126 104412 TRAP CS$CLEAN 
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DROP UNIT SECTION 


2993 -SBTTL OROP UNIT SECTION 
2994 
2995 3+? 
2996 ; THE OROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
2997 ; TO NO LONGER BE TESTED. 
2998 n~ 
2999 
3000 041130 BGNDU 
041130 L$DU:: 
3001 
3007 
Lome 041130 012764 000001 000014 MOV #DRPFLG,LUNFLG(R4) ;LETS PROGRAM KNOW IT’S DEAD 
3010 041136 EXIT DU 
041136 000167 -WORD J$JMP 
041140 000000 -WORD L10013-2-. 
3011 
3023 
3024 -EVEN 
3025 
3026 041142 ENDDU 
041142 L10013: 
041142 104453 TRAP CsDu 
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ADD UNIT SECTION 


000167 
000000 


104452 


-SBTTL ADD UNIT SECTION 


THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 


TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 


BGNAU 


LSAU:: 


EXIT 
. WORD 
. WORD 
-EVEN 
ENDAU 
TRAP 


ENDMOD 


L10014: 


TO THE TEST CYCLE. 


AU 
J$ JMP 
L10014-2-. 


CS$AU 





SEQ 82 
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ADD UNIT SECTION 


SEQ 83 


ee ee 


te 


3066 
3067 - TITLE HARDWARE TEST 
3071 000000 HELP =0 ; CONTROL LISTING OF HELP INFORMATION 
3072 ; HELP=0 NO LIST 
3073 ; HELP=1 #.LLIST 
3074 
3075 ;ONEFILE= ; CONTROL USE OF SOURCE FILES 
3076 ; ONEFILE IS NOT DEFINED ASSEMBLE EACH SOURCE FILE SEPARATELY 
oa dy ; ONEFILE=ANYTHING ASSEMBLE ALL SOURCE FILES TOGETHER 
aooe -SBTTL TEST 1: EXISTENCE VERIFICATION TEST 
3097 
3098 ff RRRAERAEKEAAASEARARAEAEAAARABAEAARAREAAEAASEARALESARESARALAARAAL AS 
ora fp RERREAARAERAASEAAKARASAAEAEAAAEAREARARAAARAADALAREAESEELALERSLAKARELS 
100 $ 
3101 :TEST 1 - EXISTENCE VERIFICATION TEST 
3102 ; THIS TEST VERIFIES THE EXISTENCE OF THE UUT BY 
3103 ; ATTEMPTING TO READ FIRST THE IP AND THEN THE SA 
3104 : REGISTERS OF THE TKSO. VECTOR 4 IS SET UP WITH 
3105 ; A TRAP HANDLING ROUTINE IN CASE OF A NON-EXISTENT 
aaa ; MEMORY TIMEOUT. 
3108 5p RRAAKERERAAAAEARAEAAEREAKAREAEREEAAAAEARAARAESDARARAGAAKAALKAAAKAAEAAKES 
aH ff RERAEAARAAASEAARASAREAAAAEAAAEARAEAAAARAAREAASASAAAEALEREKALKALAS 
110 
3114 041152 BGNTST 
041152 Ti:: 
3115 041152 000240 NOP 
3116 041154 012737 000001 002272 MOV #1,ITRCNT ;SET UP FOR ONE TEST ITERATION 
3117 941162 005737 002270 TST PASCNT ;IF PASS 0 
3118 041166 001404 BEQ T1.1 ; THEN START TEST 
3119 041170 012737 000010 002272 MOV #10, ITRCNT ; ELSE DO MULTIPLE ITERATIONS 
3120 041176 000240 NOP 
3121 041200 BGNSUB 
041200 ip ee F 
041200 104402 TRAP C$BSUB 
aise 041202 005037 002276 i$: CLR TRP4FG ;CLEAR NXM TRAP FLAG 
3124 041206 SETVEC #VEC4, #TRAP4,¢PRIO7 :SET UP VECTOR 4 FOR NXM TRAP 
041206 012746 000340 MOV #PRIO7,-CSP) 
041212 012746 036054 MOV #TRAP4 , -(SP) 
041216 012746 000004 MOV #VEC4, -CSP) 
041222 012746 000003 MOV #3,-C(SP) 
041226 104437 TRAP C$SVEC 
041230 062706 000010 ADD #10, SP 
3125 041234 000240 NOP 
3126 041236 005074 000900 CLR AaTKIPCR4) ;WRITE THE IP REGISTER 
3127 041242 000240 NOP 
3128 041244 DELAY 1 ;MAKE SURE TIMEOUT CAN OCCUR 
041244 012727 000001 MOV #1,(PC)+ 
041250 000000 -WORD 0 
041252 013727 002116 MOV LS$DLY,C(PC)+ 
041256 000000 .WORD 0O 
041260 005367 177772 DEC -6(PC) 
041264 001375 BNE .-4 
041266 095367 177756 DEC -22(PC) 











(ee mee 
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TEST 1: EXISTENCE VERI-ICATION TEST 
a 041272 001367 DNE .-20 
3130 041274 005737 002276 TST TRP4FG ;IF NO TRAP OCCURRED 
3131 041300 001416 BEQ 5$ ; THEN CONTINUE TEST 
3132 041302 000240 NOP 
3133 041394 012737 032640 002310 MOV #CTRL,FRUIS sIDENTIFY FAILING FRU FOR PRINTOUT 
3134 041312 ERRDF 5,EMSG5.PRIERR ;"NXM ON READ TKIP” 
041312 104455 TRAP CSERDF 
041314 000005 -WORD 5 
041316 030334 -WORD EMSGS 
041320 033146 -WORD PRIERR 
3135 041322 CKLOOP ;LO0P ON ERROR? 
041322 104406 TRAP CSCLPi 
3136 041324 DODU LOGUNT ;DROP UNIT 
041324 013700 002312 MOY LOGUNT ,RO 
041330 104451 TRAP C$DODU 
3127 041332 ESCAPE SUB ;CAN‘T CONTINUE 
041332 104410 TRAP CSESCAPE 
_— 041334 000002 -WORD 1L10016-. 
3139 041336 5$: ENDSUB 
041336 L10016: 
041336 104403 TRAP CSESUB 
3140 041340 000240 
3141 041342 CLRVEC #VEC4 sRESTORE VECTOR 4 
041342 012700 000004 V #VEC4,RO 
1346 104436 TRAP CS$CVvEC 
3142 041350 032764 000001 000014 BIT #DRPFLG, LUNFLG(R4) ;IF UNIT WAS NOT DROPPED 
3143 041356 001402 BEQ T1.2 ; THEN CONTINUE TESTING 
3144 041360 ESCAPE TST ; ELSE LEAVE TEST 
1360 104410 TRAP CSESCAPE 
—_ 041362 000264 -WORD L10015-. 
3146 041364 BGNSUB 
041364 T1.2: 
041364 104402 TRAP C$BSuUB 
gt 041366 005037 002276 10$: CLR TRP4FG ;CLEAR NXM ERROR FLAG 
3149 041372 SETVEC #VEC4,#TRAP4, ¢PRIO7 ;SET VECTOR 4 FOR NXM TRAPS 
041372 012746 000340 MOV #PRIO7,-CSP) 
041376 012746 036054 MOV #TRAP4, -(SP) 
041402 012746 000004 MOV #VEC4, -C SP) 
041406 012746 000003 MOV #3,-CSP) 
041412 104437 TRAP C$SVEC 
041414 062706 000010 ADD #10,SP 
3150 041420 000240 NOP 
3151 041422 005774 000002 TST OTKSACR4) ;READ THE SA REGISTER 
3152 041426 000240 NOP 
3153 041430 DELAY 25. ;WAIT TO ALLOW NXM TRAP 
041430 012727 000031 MOV #25.,(PC)+ 
041434 000000 -WORD O 
041436 013727 002116 MOV LSDLY,C(PC)+ 
041442 000000 -WORD 0 
041444 005367 177772 DEC -6(PC) 
041450 001375 BNE .-4 
041452 005367 177756 DEC -22(PC) 
041456 001367 BNE .-20 





HARDWARE TEST 


3154 
3155 041460 
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TEST 1: EXISTENCE VERIFICATION TEST 


005737 
001416 
000240 


012737 


012737 


013700 
104451 


104410 
000002 


104432 
000002 


002276 


032640 


002312 


000002 
004000 


004000 
032640 


002312 


002314 
000004 
000001 
002272 


041200 





002310 


000012 
000012 


002314 
002310 


000014 


15$: 


16$: 


L10017: 


20$: 


25$: 


TRP4FG 
15$ 


#CTRL,FRUIS 
7,€MSG7,PRIERR 
_ 


EMSG7 
PRIERR 


CS$CLP1 
LOGUNT 
LOGUNT ,RO 
C$D0DU 
SUB 
CSESCAPE 
L10017-. 


OTKSACR4 ), TKSASV(R4) 
cineca 


#B .S1,SAEXP 
#CTRL,FRUIS 

8. ,EMSG8 ,PRISA 
CSERDF 


8 
EMSG8 
PRISA 


C$CLP1 
LOGUNT 
LOGUNT ,RO 
C$D00U 


SUB 
CSESCAPE 
L10017-. 


CSESUB 


SAEXP 

#VEC4 

#VEC4,RO 

C$CVEC 

#DRPFLG, LUNFLG(R4) 
25$ 


ITRCNT 


25% 
i ey 


TST 
CSEXIT 
L1i0015-. 


SEQ 85 


;IF NXM DID NOT OCCUR 
; THEN CONTINUE TEST 


s;IDENTIFY FAILING FRU FOR PRINTOUT 
;"NXM ON FIRST READ OF SA” 


;LOOP ON ERROR? 
;DROP UNIT IF NOT 


;LEAVE TEST 


;GET A COPY OF SA IN MEMORY 
;IF STEP 1 BIT IS SET 
; THEN TEST 1 IS COMPLETE 


sLOAD “EXPECTED FOR PRINTOUT 


sIDENTIFY FAILING FRU FOR PRINTOUT 
;"SA REG IN ERROR ON FIRST READ” 


;LOOP ON ERROR? 
sDROP UNIT IF NOT 


;LEAVE TEST 


;CLEAR ERROR INDICATOR 
sRESTORE VECTOR 4 


;IF UNIT DROPPED 
; THEN LEAVE NOW 
;IF ITERATIONS EQUAL 0 


; THEN LEAVE TEST 
ELSE GO BACK FOR MORE 
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TEST 1: EXISTENCE VERIFICATION TEST 








3187 
3183 -EVEN 
3189 
3190 041646 ENDTST 
041646 L10015: 
041646 104401 TRAP CSETST 





SEQ 86 


HARDWARE TEST 


3214 


3239 


041650 
041650 


041650 
041656 
041660 
041660 
041662 


041774 


042000 
042004 
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TEST 2: SA REGISTER WRAP TEST 


032764 
001423 


104421 
010037 
032737 
001412 


013746 
012746 


104432 
000504 


012737 
012737 
022737 
001403 
012737 


012737 
013737 
004737 


005737 
001415 


012737 
104455 
000011 
030465 
032740 


104406 


000001 


002334 
001000 


002114 
047626 
000002 


000006 


000001 
000001 
000001 
000002 
140000 
002314 
036434 


002320 


032640 


000014 


002334 


002316 G02: 


002272 
002270 


002272 


002314 
002250 


002310 


-SBTTL TEST 2: SA REGISTER WRAP TEST 


5 5 FSSESESESEEEEEEESSESEEREAALSALASCESRE SHEA AASAAALAARASLALSL ALE AAL‘ALS 
os FS SKESEESEEEESESESESESAASESASESELEASELEELASEAAAEKEAALEELREALELAL‘LE 


;TEST 2 - SA REGISTER WRAP TEST 


T2:: 


2$: 


THIS TEST WILL INITIALIZE THE UUT BY WRITING TO ITS 
IP REGISTER. IT WILL FORCE THE UUT INTO DIAGNOSTIC 
WRAP MODE, AND WRITE FIRST A FLOATING O DATA PATTERN, 
FOLLOWED BY A FLOATING 1 DATA PATTERN TO THE SA REG. 
EACH WRITE WILL BE FOLLOWED BY A READ AND COMPARE 





SEQ 87 


OPERATION. 


ss SRSERASKASSALALESAABAGAEALALACEAAASAASASAREALALASALALASLALAALALAL 
gp RESRASEEESEKEEAEAALAALALARAARABRALASEAARALARESALZALALALALAZALE ERE 


BGNTST 
BIT #DRPFLG,LUNFLGC(R4) ;IF UUT NOT DROPPED 
BEQ G02 ; THEN DO TEST 
RFLAGS FLAGS ;ELSE GO GET SUPRVISOR FLAGS 
TRAP CS$RFLA 
MOV RO,FLAGS 
BIT #PNT,FLAGS ;SEE IF WE’‘RE PRINTING TEST NUMBERS 
BEQ 1$ ;NO, DON’T PRINT BYPASSED 
PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
MOV L$TEST,-(SP) 
MOV #BYPASS, -CSP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #6 ,SP 
EXIT TST ;BYPASSED MESSAGE AND GET OUT 
TRAP CSEXIT 
-WORD L10020-. 
MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
MOV #1,ITRCNT ;SET UP FOR ONE TEST ITERATION 
CMP #1,PASCNT ;IF FIRST PASS 
BEQ 2$ ; THEN START TEST 
MOV #2, ITRCNT ; ELSE DO 2 ITERATIONS 
MOV #BIT15!B8.WR, SAEXP ;SET UP STEP 1 FOR DIAG. WRAP MODE 
MOV SAEXP, STPTBL ;PUT IT IN STEP 1 OF TABLE 
JSR PC,STEP1 ;GO DO IT 
TST STEPS7T ;IF STATUS OKAY 
BEQ 5$ ; THEN CONTINUE TEST 
V #CTRL,FRUIS ;FAILING FRU FOR PRINTOUT 
ERRDF 9.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
TRAP CSERDF 
-WORD 9 
-WORD EMSG9 
-WORD PRIINI 
CKLOOP ;LOOP ON ERROR? 
TRAP CS$CLPi 





HARDWARE TEST 
TEST 2: SA REGISTER WRAP TEST 


3240 042026 
042026 
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013700 
104451 


104410 
000372 


012737 


032740 
104406 


013700 
104451 


104410 
000274 


012737 
013774 
013737 
012737 


013737 


012737 
104455 


032740 
104406 


013700 
104451 


104410 


002312 


032640 


002312 


177776 
002322 
002322 
000100 


037200 
000002 
002314 
036406 
002330 


032640 


002312 


002326 5$: 
002324 6%: 


000012 
000012 


002310 


002324 
000012 
000012 


002310 


10$: 
11$: 


i5$: 


TRAP 


RAP 
ESCAPE TST 


LOGUNT 
LOGUNT ,RO 
CsD0DU 
TST 
CSESCAPE 
L10020-. 


#100, OUTER 
#16000. , INNER 
ATKSACR4 ), TKSASV(R4) 
. ulileamar tata 

10$ 


PC ,PDELAY 
TOUT 
6$ 


#CTRL,FRUIS 

10. ,EMSG9, PRIINI 
CSERDF 

10 


EMSG9 
PRIINI 


CS$CLP1 
LOGUNT 
LOGUNT ,RO 
C$D0DU 
TST 
CSESCAPE 
L10020-. 


#177776,WRDATA 
WRDATA,@TKSACR4) 
WRDATA , SAEXP 
#100, OUTER 
16000. , INNER 
STKSACR4 ), TKSASV(R4) 
SAEXP,, TKSASV(R4) 
20$ 

PC ,PDELAY 

TOUT 

i5$ 

#CTRL,FRUIS 
11.,EMSGi0,PRIINI 
— 


EMSG10 
PRIINI 


C$CLP1 


CSESCAPE 


SEQ 88 
Py Saba anit 


sLEAVE TST 


;SET UP FOR DELAY ROUTINE 
;SET UP INNER 

;GET SA CONTENTS 

;IF SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


sFAILING FRU FOR PRINTOUT 
;"SA CONTENTS IN ERROR” 


sINITIALIZE WRAP DATA 
;SEND DATA TO UUT 

;SAVE A COPY FOR COMPARE 
;SET UP FOR DELAY ROUTINE 


; INNER TOO 

;READ SA 

;I1F DATA MATCHES 

: THEN CHANGE DATA 

; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


sFAILING FRU FOR PRINTOUT 
;"SA WRONG IN DATA WRAP“ 


;GET OUT IF NOT LOOPING 





- 


HAROWARE TEST 
TEST 2: SA REGISTER WRAP TES 


042254 


042256 
042262 


042264 
042272 
042300 
042306 


042314 
042322 
042330 
042336 
042340 
042344 
042350 


942352 
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000154 


006137 
103730 


012737 
013774 
013737 
012737 


012737 
017464 
023764 
001422 
004737 
905737 
001761 


012737 


032740 
104406 


013700 
104451 


104410 
000026 


006137 
103330 
005337 
001402 
000137 


104432 
000002 


104401 


032640 


002312 


002322 
002272 
041760 


002310 


205: 


30$: 


T2EXT: 


L10020: 


ENDTST 
TRAP 


L10020-. 

WRDATA 

11$ 

#1,WRDATA 

WRDATA ,@TKSACR4 ) 
WRDATA , SAEXP 
#100 OUTER 
#16000, INNER 
@TKSACR4 ), TKSASV(R4) 
SAEXP, TKSASV(R4) 
30$ 

PC ,PDELAY 

TOUT 

25% 

#CTRL,FRUIS 


12.,EMSG10,PRIINI 
CSERDF 


LOGUNT ,RO 
nee 
CSESCAPE 
L10020-. 

WRDATA 

24$ 
ITRCNT 
T2EXT 
2$ 

TST 


CSEXIT 
L10020-. 


CSETST 


Sennett 





SEQ 89 


sSHIFT TEST PATTERN 
;WE'RE NOT DONE YET 


sSET UP FOR FLOATING 1 PATTERN 
3SEND DATA TO UUT 

sKEEP A COPY FOR COMPARE 

;SET UP FOR DELAY ROUTINE 


;DELAY ROUTINE TOO 

;READ THE SA 

;IF IT MATCHES 

; THEN SEE IF WE'RE DONE 

;_ ELSE GIVE UUT SOME MORE TIME 
;IF NO TIMEOUT YET 

; THEN TAKE ANOTHER LOOK 


sFAILING FRU FOR PRINTOUT 
;"SA WRONG IN DATA WRAP“ 


;LEAVE TEST IF NOT LOOPING 


sSHIFT DATA PATTERN 
;WE’RE NOT DONE YET 
;IF ITERATIONS = 0 

; THEN LEAVE TEST 

; ELSE DO ANOTHER ONE 


sGET OUTTA HERE 





-~ - 


HARDWAPE TEST 


042432 


3341 042504 


3344 042516 


3347 042534 
3348 
3349 042542 


3356 042606 
042606 
3357 042610 
042610 
3358 042612 
3359 042620 
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104432 
000410 
012737 


012737 
012705 


013737 
052737 


104407 
103404 


012737 
000403 


000001 


002334 
091000 


002114 
047626 
000002 


000006 


032640 
0000 
000001 


004700 


000014 


002334 


002310 G03: 


002272 
002270 


002272 


092316 
002250 


002264 
002250 


002260 


-SBTTL TEST 3: INITIALIZATION TEST 


£6 6646666 66 6662646466 64646464666 46644646 4646664646646 646 464646 4646046464640646 20004644 
$$ 64666646466 4664646 6464666666 6646464646646 66 66466 640646464664 06444446246444044604044 


;TEST 3 - INITIALIZATION TEST 


THIS TEST COMMENCES THE UQ-PORT INITIALIZATION SEQUENCE 
WITH INTERRUPTS DISABLED. IT VERIFIES THAT ALL STEP 
TRANSITIONS OCCUR WITHIN THE ALLOTED TIME, AND THAT ALL 
HOST SUPPLIED INFORMATION IS ECHOED BY THE UUT. THE 
PROGRAM FURTHER VERIFIES THAT NO INTERRUPTS OCCUR AS A 
RESULT OF THE STEP TRANSITIONS. 





SEQ 90 


gs RESERESASEAASALELASESAEAARASRAAASEASESSALALEASLALAALALRELALALALLERE 
ss SESKASESEAARESESARSSCASASALAAASAAKAAAALASAALASAAARALAALAALALALALES 


T3:: 


23: 


BGNTST 

BIT @ORPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 

BEQ 3 ; THEN DO TEST 

RFLAGS FLAGS ;ELSE GO GET SUPRVISOR FLAGS 
TRAP CSRFLA 

MOV RO,FLAGS 

BIT #PNT FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
BEQ 1$ ;NOQ, DON‘T PRINT BYPASSED 
PRINTF @BYPASS,LS$TEST ; ELS: PRINT THE TEST 

MOV L$TEST,-CSP) 

MOV #BYPASS, -( SP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD #6 ,SP 

EXIT TST ;BYPASSED MESSAGE AND GET OUT 
TRAP CsEXIT 

-WORD 110021-. 

MOV @CTRL,FRUIS sFAILING FRU IN CASE OF ERROR 
MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
CMP #1,PASCNT ;IF FIRST PASS 

BEQ 2$ ; THEN START TEST 

MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 

MOV #0,R5 ;SET UP RS AS INDEX TO STEP TABLES 
MOV #1, INISTP ;STEP 1 FOR ERROR PRINTOUT 
MOV TKVECCR4), STPTBL ;PUT VECTOR IN STEP 1 

ASR STPTBL sDIVIDE BY TWO 

ASR STPTBL sDIVIDE BY FOUR 

MOV STPTBL ,CMPTBL+4 sPUT VECTOR IN STEP 3 COMPARE 
BIS #104400, STPTBL ;REST OF STEP ONE 

READBUS ;IF QBUS 

TRAP CsRDOBU 

BCOMPLETE 3$ ; THEN BR FOR QBUS SET UP 
BCS $ 

MOV #4700, CMPTBL ; ELSE SET UP FOR UNIBUS 

BR 











7 
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TEST 3: INITIALIZATION TEST =a 
3360 042622 012737 005700 002260 3$: MOV -—S«_-@B8.S1!8.08!B.DI!8.00!8.MP.CHPTAL 
3361 ;STEP 1 COMPARE VALUE 
3362 042630 012737 002252 4$: MOV -—« @COMMAR, STPTBL-+2 SSTEP 2 - COMM AREA ADDRESS 
3363 042636 012737 010211 002262 MOV -«-@010211. CHPTBL «2 SSTEP 2 COMPARE 
3364 042644 012737 000000 002254 MOV «#0, STPTBL +4 SSTEP 3 - HIGH ADDRESS 
3365 042652 112737 000040 002265 MOVB 640, CMPTBL-S [REST OF STEP 3 COMPARE 
3366 04 012737 000000 002256 MOV «40, STPTBL<6 ISTE 
3367 042666 012737 040000 002266 MOV «4040000, CHPTBL+6 SSTEP 4 COMPARE 
3369 042674 004737 036434 JSR —s- PC, STEP1 :G0 DO IT 
3370 042700 005737 002320 1ST —«sSTEPST ;IF STATUS OKAY 
3371 042704 001412 BeEQtié‘sS$ ; THEN CONTINUE TEST 
3373 042706 ERRDF  9.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR’ 
042706 104455 TRAP ‘ CSERDF 
042710 000011 ‘WORD 9 
042712 030465 "WORD EMSG9 
042714 032740 "WORD  PRIINI 
3374 042716 CKLOOP ;LOOP ON ERROR? 
042716 104406 TRAP C$CLP1 
3375 042720 DODU —LOGUNT ;DROP UUT 
042720 013700 002312 MOV _—Ss« LOGUNT, RO 
042724 104451 TRAP _- C$D0DU 
3376 042726 ESCAPE TST ;LEAVE TST 
042726 104410 TRAP _ CSESCAPE 
042730 000166 ‘WORD 110021. 
3378 042732 005237 002316 S$: INC _—sINISTP ADJUST STEP COUNTER 
3379 042736 062705 00000 ADD s--@2,.3 ADJUST TABLE INDEX 
3380 042742 012737 000100 002326 6%: MOV —S»Xx@100 OUTER ;SET UP FOR DELAY ROUTINE 
3381 042750 016537 002260 002314 MOV -—Ss CMPTBLCRS), SAEXP ;SET UP FOR COMPARE 
3382 042756 012737 037200 002324 7$: MOV —« #16000. , INNER ;SET UP INNER 
3383 042764 017464 000002 000012 HOV -—«s@TKSACR4), TKSASV(R4) — ; GET _SA CONTENTS 
3384 042772 022705 000006 CMP «6, RS SARE WE IN STEP 4? 
3385 042776 00100 BNE 8 ;BRANCH IF NOT 
3386 043000 033764 002314 000012 BIT _ SAEXP, TKSASV(R4) ;JUST LOOK FOR STEP 4 BIT 
7 043006 001024 BNE _—108 ;IT'S SET SO LET'S GO 
3388 043010 0004 BR 93 SSTAY IN LOOP OTHERWISE 
3389 043012 023764 002314 000012 83: CHP —s SAEXP, TKSASVCR4) SIF SA IS WHAT WE EXPECT 
3390 04 001417 BEQ ~—s«108 ; THEN MOVE ALONG 
3391 043022 004737 036406 9%: JSR —s- PC. PDELAY ; ELSE GIVE UUT SOME TIME 
3392 043026 005737 002330 TST «TOUT SIF NO TIMEOUT YET 
3393 048032 001751 BeQStié‘T78# ; THEN GO TAKE ANOTHER LOOK 
3395 043034 ERROF  13.,€MSG9,PRIINI ;"SA CONTENTS IN ERROR” 
043034 104455 TRAP —« CSERDF 
043036 000015 ‘WORD 13 
043040 030465 "WORD EMSG9 
043042 032740 "WORD  PRIINI 
3396 043044 CKLCOP 
04 104406 TRAP CS$CLP1 
3397 043046 p0DU  —«LOGUNT 
04 013700 002312 MOV —=s- LOGUNT,RO 
043052 104451 TRAP - CSD0DU 
3398 043054 ESCAPE TST 
043054 104410 TRAP CSESCAPE 
043056 000040 ‘WORD 110021-. 








HARDWARE TEST 


TEST 3: 
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002250 


002272 


000002 


000014 


10$: 


T3EXT: 


110021: 
T 


“Wy ee laaiaaaa aaa 


5$ 
@DRPFLG,LUNFLG(R4) 
TSEXT 


ITRCNT 
2s 


TST 


CSEXIT 
L10021-. 


CSETST 





sWRITE NEXT STEP TO UUT 
sIF NOT IN STEP 4 
;GO0 BACK TO MAIN LOOP 


sHAS UUT BEEN DROPPED 
sLEAVE NOW IF SO 


sIF MORE ITERATIONS LEFT 


THEN GO DO IT AGAIN 





SEQ 92 





HARDWARE TEST 


3414 
418 
3419 
3420 
3421 


3434 


3435 
3436 


3437 | 


3438 


3439 
2440 
3441 


hein itatereeinibanihoctieh ite lonleeses@elcemitesntmnen 


043120 
043120 
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032764 
001423 


104421 
010037 
032737 
001412 


013746 
012746 
012746 
010600 
104417 
062706 


104432 
000516 


042764 
042764 
012737 
012737 
022737 
001403 
012737 


004737 
012705 
012737 
016437 
006237 
006237 
013737 
052737 


104407 
103404 


012737 
000403 


000001 


002334 
001000 


002114 
047626 
000002 


000006 


000004 
000002 
032640 
C00001 
000001 


000012 
036316 


004700 


000014 


002334 


000014 G04: 


002272 


002316 
002250 


002264 
002250 


902260 





SEQ 93 


-SBTTL TEST 4: VECTOR AND INTF&RUPT TEST 


1$: 


2$: 


£66666 6646646666 6464046466664 2666464066646 6664606666466466040664660604006046046 
SEES SS SE SSSESESESEESSEAAASSESESASASKSSEASSASLASASAEASASASERERELE EEK 


TEST 4 - VECTOR AND INTERRUPT TEST 


TEST 3 IS REPEATED, BUT WITH INTERRUPTS ENABLED. 
THE PROGRAM VERIFIES THAT AN INTERRUPT OCCURS AT 
THE END OF STEPS i - 3. 


BGNTST 

BIT ¢DRPFLG,LUNFLG(R4) 
BEQ G04 

RFLAGS FLAGS 

TRAP CSRFLA 

MOV RO,FLAGS 

BIT #PNT FLAGS 

BEQ i$ 

PRINTF #BYPASS,LSTEST 
MOV L$TEST,-CSP) 

MOV “BYPASS, -(SP) 
MOV SP ,RO 

TRAP CSPNTF 

ADD #6 ,SP 

EXIT TST 

TRAP CSEXIT 

-WORD 1L10022-. 

BIC #BRFLAG,LUNFLG(R4) 
BIC #INTFLG,LUNFLG(R4) 
MOV #CTRL,FRUIS 

MOV #1, ITRCNT 

cme #1,PASCNT 

BEQ 2$ 

MOV #10. ,ITRCNT 

JSR PC, VECTOR 

MOV #0,R5 

MOV #1,INISTP 

MOV TKVECCR4), STPTBL 
ASR STPTBL 

ASR STPTBL 

MOV STPTBL,CMPTBL+4 
BIS #104600, STPTBL 
READBUS 

TRAP C$RDBU 

BCOMPLETE 3$ 

BCS 3$ 

MOV #4700, CMPTBL 

BR 4$ 


SESESSSASSSASSESASASA SSE SASS SSAAASSAAAASALSASSSSAAAASASELALLEREALES 
SSSSSESSSSASSKSS SASS SASKAKEKEAASSEALALSAAEAAASABALALA LASALLE L‘SE 


;IF UUT NOT DROPPED 
; THEN DO TEST 
sELSE GO GET SUPRVISOR FLAGS 


sSEE IF WE‘RE PRINTING TEST NUMBERS 
;NO, DON’T PRINT BYPASSED 
; ELSE PRINT THE TEST 


sBYPASSED MESSAGE AND GET OUT 


:D0 TEST WITH PRIORITY SET TO 0 
sCLEAR THE INTERUPT FLAG 
sFAILING FRU IN CASE OF ERROR © 
;SET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


;SET UP VECTOR WITH INTERRUPT HANDLER 
;SET UP RS AS INDEX TO STEP TABLES 
:STEP 1 FOR ERROR PRINTOUT 

;PUT VECTOR IN STEP 1 

;DIVIDE BY TWO 

;sDIVIDE BY FOUR 

;PUT VECTOR IN STEP 3 COMPARE 

sREST OF STEP ONE 

:IF QBUS 


; THEN BR FOR QBUS SET UP 
; ELSE SET UP FOR UNIBUS 





HARDWARE TEST 


EL ee ——— 
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012737 


012737 
012737 
012737 
052737 
112737 
012737 
012737 


004737 
005737 
001412 


104455 
000016 
0304€5 
032740 


104406 


013700 
104451 


104410 
000246 


012737 
016537 
012737 
032764 
001017 
004737 
005737 
001764 


104455 
000017 
030540 
033146 


104406 


013700 
104451 


104410 
000156 


042764 
005237 
062705 
016537 
017464 
022705 


005700 


002312 


000100 
002260 
037200 
000002 


036406 
002330 


002312 


002260 3%: 


002326 
002314 
002324 
000014 


000014 108: 


002314 
000012 


5$: 
7$: 


9$: 


MOV 


8 ..S1!68.QB!8.01!8.0D!8.MP,CMPTBL 


@COMMAR, STPTBL +2 
#010211, CMPTBL+2 
60,STPTBL+4 

$6 .IE,CMPTBL +4 
#40, CMPTBL +5 

#0 ,STPTBL+6 
#040000, CMPTBL +6 


PC,STEP1 
STEPST 
S$ 


14.,EMSG9,PRIINI 
CSERDF 
14 


EMSG9 
PRIINI 


CSCLPi 


CSESCAPE 
L10022-. 


#100,OUTER 
CMPTBLCRS),SAEXP 
#16000. , INNER 
—e 


PC .PDELAY 

TOUT 

7$ 
15.,EMSG11,PRIERR 
CSEROF 


LOGUNT ,RO 
C$DO0DU 
TST 
CSESCAPE 
L10022-. 


#INTFLG,LUNFLGCR4) 


INISTP 
#2,R5 
CMPTBLCRS),SAEXP 


BTKSACR4), TKSASV(R4) 


#6 ,R5 


;STEP 1 COMPARE VALUE 

;STEP 2 - COMM AREA ADDRESS 
sSTEP 2 COMPARE 

;STEP 3 - HIGH ADDRESS 

;SET THE INTERRUPT ENABLE BIT 
sREST OF STEP 3 COMPARE 

;STEP 4 

;STEP 4 COMPARE 


:GO DO IT 
;IF STATUS OKAY 
; THEN CONTINUE TEST 


;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
sDROP UUT 


;LEAVE TST 


;SET UP FOR DELAY ROUTINE 
sSET UP FOR COMPARE 

;SET UP INNER 

sIF INTERRUPT OCCURRED 

; THEN SEE IF SA IS CORRECT 
; ELSE GIVE UUT SOME TIME 
IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;“EXPECTED INTERRUPT DID NOT OCCUR” 


;CLEAR THE INTERRUPT FLAG 
;ADJUST THE STEP COUNTER 
sADJUST TABLE INDEX 

sGET THE COMPARISON VALUE 
;GET SA CONTENTS 
;ARE WE IN STEP 4? 





SEQ 94 





err= TEST 


3503 


043574 
043576 
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001005 
areas 


030465 
032740 


104406 


013700 
104451 


104410 
000050 


016574 
022705 
001273 


032764 
001005 
005337 
001402 
000137 


004737 


104432 
000002 


104401 


002314 


002314 


002312 


sata 
000001 
002272 
043244 
036266 


000012 


000012 15%: 


16$: 


000002 205: 


000014 


T4EXT: 


L10022: 


BNE 
BIT 


i5$ 
SAEXP , TKSASV(R4) 
20$ 


16$ 
SAEXP, TKSASV(R4) 
20% 


16. ,EMSG9,PRIINI 
CSERDF 
16 


EMSG9 
PRIINI 


CSCLP1 


CSESCAPE 
Li0022-. 


STPTBLCRS) ,@TKSACR4) 
#6,R5 


S$ 
#DRPFLG,LUNFLG(R4) 
T4EXT 


ITRCNT 
T4EXT 
2$ 


PC ,RSTVEC 
TST 
CSEXIT 
L1002e2-. 


CSETST 


;BRANCH IF NOT 


;JUST LOOK FOR STEP 4 BIT 


;I1T‘S SET SO LET'S GO 
ERROR 


;IF SA IS WHAT WE EXPECT 


; THEN MOVE ALONG 


;"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 


;IF NOT IN STEP 4 


;GO BACK TO MAIN LOOP 
sHAS UUT BEEN DROPPED 


;LEAVE NOW IF SO 


;IF NO MORE ITERATIONS LEFT 


; THEN EXIT 
; ELSE DO IT AGAIN 


sCATCH ILLEGAL INTERRUPTS 





SEQ 95 





HARDWARE TEST 
TEST S: BR LEVEL TEST 


3551 
3552 


943714 
043714 


043714 
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104432 
000370 


052764 
012737 
012737 
022737 
001403 
012737 


012700 
104441 
004737 
012705 
012737 
016437 
006237 
006237 
052737 
016437 


004737 
005737 


000001 


002334 
001000 


002114 
047626 
000002 


000006 


000004 
032540 
000001 
000001 


000002 


000340 


036316 
000000 
000001 
000004 
002250 
002250 
104600 
000004 


036434 
002320 





000014 


002334 


000014 
002310 
002272 
002270 


002272 


002316 
002250 


002250 
002260 


-SBITL TEST 5S: BR LEVEL TEST 


£6 464666 66646646 4666664666466 664404646 46466466404606646 66464646 6440464646446 40 44004 
$$ 46466 666466666646 464666 646666646 66664664 0464004066284646 0246464 464646464444664 4644 


sTEST 5S - BR LEVEL TEST 


THIS TEST INSURES THAT THE TKSO CAN NOT INTERRUPT 


WHEN THE CPU PRIORITY IS SET TO 7. 


THE TEST GOES 


ONLY THROUGH THE FIRST STEP OF THE INIT SEQUENCE 
SINCE THE CONTROLLER WILL “HANG” WAITING FOR THE 
INTERRUPT ACKNOWLEDGE. 


§ FSSAEASSSASAAE AS SASS EAALEAAAEAKASARSASASSAAAKAEAAALALKELALAAALE‘LS 


5 §066060000000046000000000000000000000000000000000000000000000000 


TS:: 


1$: 


GO5: 


23: 


BGNTST 


#DRPFLG,LUNFLG(R4) 
GO5 

FLAGS 

CSRFLA 
RO,FLAGS 

#PNT .FLAGS 

i$ 
#BYPASS,L$TEST 
L$TEST,-CSP) 
#2, -(SP) 

SP ,RO 

CSPNTF 

#6 ,SP 

TST 

CSEXIT 
L10023-. 


#BRFLAG, LUNFLG(R4) 
#CTRL,FRUIS 
#1,ITRCNT 
#1 ,PASCNT 

$ 


2 
#2, ITRCNT 


#PRIO7 

#PRIO7,RO 

C$SPRI 

PC VECTOR 

#0,R5 

#1,INISTP 
TKVEC(R4), STPTBL 
STPTBL 

STPTBL 

#104600, STPTBL 
TKVECCR4), CMPTBL 


PC,STEP1 
STEPST 


;IF UUT NOT DROPPED 
; THEN DO TEST 
;ELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE'RE PRINTING TEST NUMBERS 
;NO, DON'T PRINT BYPASSED 
; ELSE PRINT THE TEST 


;BYPASSED MESSAGE AND GET OUT 


;D0 TEST WITH HIGH PRIORITY 
sFAILING FRU IN CASE OF ERROR 
;SET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


;CPU PRIORITY = 7 





SEQ 96 


sSET UP VECTOR WITH INTERRUPT HANDLER 


;SET UP RS AS INDEX TO STEP TABLES 
sSTEP i FOR ERROR PRINTOUT 

sPUT VECTOR IN STEP 1 

;DIVIDE BY TWO 

sDIVIDE BY FOUR 

sREST OF STEP ONE 

;STEP 1 COMPARE VALUE 


;GO DO IT 
;IF STATUS OKAY 


a HARDWARE TEST 
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3581 044120 
3582 
3583 044122 


001412 


012737 
016537 
012737 
004737 
005737 
001770 


017464 


023764 
001412 


0 5 
032740 
104406 


013700 
104451 


104410 
000116 


032764 


104455 
000022 
030601 
032740 


104406 


013700 
104451 


104410 
000054 


002312 


002312 


000002 
000002 


002312 


002326 
002314 
092324 


000012 
000012 


000014 10S: 


000014 


5$: 


7$: 
9$: 





SEQ 97 


Page 57-1 


5$ ; THEN CONTINUE TEST 


14. ,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
CSERDF 


*LOOP ON ERROR? 
;DROP UUT 


;LEAVE TST 
CSESCAPcC 
L10023-. 


#100 ,OUTER 
CMPTBLCRS),SAEXP 
#16000. , INNER ;SET UP THANE 

PC ,PDELAY ; ELSe GIVE UUT SOME TIME 
TOUT ;IF MO TIMEOUT YET 

7$ ; HEN GO TAKE ANOTHER LOOK 


STKSACR4 ), TKSASV(R4) sGeT SA CONTENTS 
SAEXP,, TKSASV(R4) 3..F CONTENTS OKAY 
10$ ; THEN CHECK FOR INTERRUPT 


; "SA CONTENTS IN ERROR” 


;SET UP FOR (DELAY ROUTINE 
SET UP FOR COMPARE 


17.,EMSG9, PRIINI 
CSERDF 

17 

EMSG9 

PRIINI 


CSCLP1i 


CSESCAPE 
L10023-. 


#INTFLG, LUNFLGC(R4) 
20$ 


#INTFLG,LUNFLGC(R4) 
18.,EMSG12,PRIINI 
ERDF - 


;IF NO INTERRUPT OCCURRED 

; THEN CARRY ON WITH TEST 

sCLEAR FLAG IN CASE WE'RE LOOPING 
;"INTRRPT WITH CPU PRIORITY =7" 


LOGUNT 


CSESCAPE 





HARDWARE TEST 
TEST 5: BR LEVEL TEST 
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TSEXT: 


L10023: 
T 


#INTFLG, LUNFLG(R4) 
#DRPFLG, LUNFLG(R4) 
TSEXT 

ITRCNT 

TSEXT 

2$ 

PC .RSTVEC 

TST 


CSEXIT 
L10023-. 


CSETST 


;CPU PRIORITY = 0 


s;DELAY FOR PENDING INTERRUPT 


;CLEAR THE FLAG NOW 


sHAS UUT BEEN DROPPED 


sLEAVE NOW IF SO 


;IF NO or ITERATIONS LEFT 


; THEN EXIT 


; ELSE DO IT AGAIN 
;CATCH ILLEGAL INTERRUPTS 





SEQ 98 
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SEQ 99 


bane 2 -SBTTL TEST 6: PURGE AND POLL TEST 
3634 2 5 2664666666466 6646 6666 6446464646 066 646646646 64646 0464644644646440464 4046404044484 
3635 S 5 256460466 64460466066 646 64666466 66464640646 4644646 46464604646 4646040464646404464604046 4464400404 
3636 3 
3637 ;TEST 6 - PURGE AND POLL TEST 
3638 ; THIS TEST WILL AGAIN RUN THROUGH THE INIT SEQUENCE, THIS 
3639 ; TIME SETTING THE “PURGE AND POLL” BIT IN STEP 3. THIS 
3640 $ SHOULD CAUSE THE PORT TO OMA VARIOUS DATA PATTERNS TO 
3641 : AND FROM THE COMMUNICATIONS AREA AND FINALLY LEAVE IT 
3642 5 CLEARED BEFORE TRANSITIONING TO STEP 4. THE PROGRAM WILL 
3643 $ HAVE FILLED THIS AREA WITH A BACKGROUND PATTERN OF ALL 
3644 ; 1‘S DATA PRIOR TO STARTING THE INIT. WHNE STEP 4 IS 
3645 ; REACHED, THE PROGRAM WILL VERIFY THAT THE COMM AREA IS 
3646 ; ALL 0‘S, AND THAT THE 20 WORDS PRECEDING AND SUCCEEDING 
3647 ; THE COMM AREA ARE UNTOUCHED. RING DEPTH USED IN THIS 
as ; TEST IS THE MINIMUM. 
3650 fp FERAAAEAAAAEARASEAEAEASAAAAEAAERASARAEELARAAASALABACEAKALAAALALESRS 
3651 § p REREAESEAARERESAEARERASAAERRAKAERARAAAARAAAERARALESAKEAALS KAKAAAL 
3655 
3656 044362 BGNTST 
_— 044362 T6:: 
3658 044362 032764 000001 000014 BIT #DRPFLG, _LUNFLGC(R4) ;IF UUT NOT DROPPED 
3659 044370 001423 BEQ G06 ; THEN DO TEST 
3660 044372 RFLAGS FLAGS ;ELSE GO GET SUFRVISOR FLAGS 
044372 104421 TRAP C$RFLA 
044374 010037 002334 MOV RO ,FLAGS 
3661 044400 032737 001000 002334 BIT #PNT ,FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
3662 044406 001412 BEG 1$ ;NO, DON’T PRINT BYPASSED 
3663 044410 PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
044410 013746 002114 MOV L$TEST,-CSP) 
044414 012746 047626 MOV #BYPASS, -(SP) 
044420 012746 000002 MOV #2,-(CSP) 
044424 010600 MOV SP ,RO 
044426 104417 TRAP CSPNTF 
044430 062706 000006 ADD #6 , SP 
3664 044434 1$: EXIT TST ;BYPASSED MESSAGE AND GET OUT 
044434 104432 TRAP CSEXIT 
seas 044436 000542 -WORD £10024-. 
3666 044440 012737 032640 002310 G06: MOV #CTRL,FRUIS ;FAILING FRU IN CASE OF ERROR 
3667 044446 012737 000001 002272 MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
3668 044454 022737 000001 002270 CMP #1 ,PASCNT ;IF FIRST PASS 
3669 044462 001403 BEQ 2e$ ; THEN START TEST 
aaoe 044464 012737 000012 002272 MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
3672 044472 012705 000000 2$: MOV #0 ,R5 ;SET UP RS AS INDEX TO STEP TABLES 
3673 044476 012737 000001 002316 MOV #1,INISTP ;STEP 1 FOR ERROR PRINTOUT 
3674 044504 016437 000004 002250 MOV TKVECCR4), STPTBL ;PUT VECTOR IN STEP 1 
3675 044512 006237 002250 ASR STPTBL ;DIVIDE BY TWO 
3676 044516 006237 002250 ASR STPTBL ;DIVIDE BY FOUR 
3677 044522 013737 002250 002264 MOV STPTBL ,CMPTBL+4 ;PUT VECTOR IN STEP 3 COMPARE 
3678 044530 052737 104400 002250 BIS #104400, STPTBL ;REST OF STEP ONE 
3679 044536 READBUS ;IF QBUS 
044536 104407 TRAP C$RDBU 


ince epi aigelmunshc Seda instinaetcnnaalieatiesiansies 





HARDWARE TEST 


TEST 6: 


3722 
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3680 044540 
044540 


103404 
012737 
000403 
012737 


012737 
012737 


012737 


012737 
004737 


004737 
005737 
001412 


104455 


000306 


104455 
000024 
030465 
032740 


002312 


002314 


036406 
002330 


002326 
002314 
002324 
000012 


000012 


000012 


3$: 
4$: 


5$: 


7$: 


8$: 
9$: 


BCOMPLETE 3$ 

BCS 3$ 

MOV #4700, CMPTBL 

BR 4 

MOV 

MOV SCOMMAR , STPTBL +2 
MOV #010211, CMPTBL +c 
MOV 3B .PP,STPTBL+4 
MOVB #40. CMPTBL+5 

MOV #0,STPTBL+6 

MOV #040000, CMPTBL +6 
MOV #10. ,CMARLG 

JSR PC ,BAKPAT 

JSR PC,STEP1 

TST STEPST 

BEQ S$ 

ERRDF 19.,EMSG9,PRIINI 
TRAP CSERDF 

-WORD 19 

-WORD EMSG9 

-WORD PRIINI 

CKLOOP 

TRAP CSCLP1 

DODU LOGUNT 

MOV LOGUNT ,RO 

TRAP C$D0DU 

ESCAPE TST 

TRAP CSESCAPE 

-WORD 1L10024-. 

INC INISTP 

ADD #2.R5 

MOV #100, OUTER 

MOV CMPTBLCRS) ,.SAEXP 
MOV #16000. INNER 
MOV @TKSACR4), TKSASV(R4 ) 
CMP #6 RS 

BNE 8$ 

BIT SAEXP , TKSASV(R4) 
BNE 10$ 

BR 9$ 

CMP SAEXP, TKSASV(R4) 
BEQ 10$ 

JSR PC ,PDELAY 

TST TOUT 

BEQ 7$ 

ERRDF 20.,EMSG9,PRIINI 
TRAP CSERDF 

-WORD 20 

.WORD EMSG9 

-WORD  PRIINI 

CKLOOP 





SEQ 100 


3 THEN BR FOR QBUS S51 UP 
; ELSE SET UP FOR UNIBUS 


$6 .Si!B.QB!B.01!B8.0D!8 .MP, CMPTBL 


sSTEP 1 COMPARE VALUE 

sSTEP 2 - COMM AREA ADDRESS 

;STEP 2 COMPARE 

sSTEP 3 - HIGH ADDRESS AND PRGE/POLL 
:REST : STEP 3 COMPARE 

;STEP 4 

;STEP 4 COMPARE 


sLENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1'S DATA 


:3GO DO IT 
;IF STATUS OKAY 
; THEN CONTINUE TEST 


;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
;DROP UUT 


:LEAVE TST 


;ADJUST ST-© COUNTER 
;ADJUST TABLE INDEX 

;SET UP FOR DELAY ROUTINE 
;SET UP FOR COMPARE 

;SET UP INNER 

;GET SA CONTENTS 

sARE WE = eg 4? 


OT 
; JUST LOOK FOR STEP 4 BIT 
:IT'S SET SO LET‘S GO 
sSTAY IN LOOP OTHERWISE 
;IF SA IS WHAT WE EXPECT 
; THEN MOVE ALONG 
; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 
; THEN GO TAKE ANOTHER LOOK 


;"SA CONTENTS IN ERROR” 


=: 
P* | 
> 
5 
= 
H 
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04 
3723 
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104406 


013700 
104451 


104410 
000160 


016574 


104455 
000025 
030650 
032740 
104406 


013700 
104451 


104410 
000050 


012774 
005774 
000653 


104432 
000002 


062312 


000001 
002116 
177772 
177756 
000002 


002312 


000000 
000000 


036610 
000001 
002272 
044472 





000002 10%: 


000012 


000002 


000014 


15%: 


16$: 


T6EXT: 
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STPTBLCRS) ,@TKSACR4) 
#4 ,R5 


i5$ 
#6 ,R5 
5$ 


20$ 


1 
senor 
eens 


.-20 
@TKSACR4 ), TKSASV(R4) 
16$ 


21.,E€MSG13,PRIINI 
ERDF 


ST 
CSESCAPE 
L10024-. 


#0, BTKSACR4) 
oo 
$ 


PC ,CHKCOM 
#DRPFLG, LUNFLG(R4) 


CSEXxIT 
L10024-. 





sWRITE NEXT STEP TO UUT 
IF STEP 3 


THEN DO PURGE/POLL STUFF 


;IF NOT IN STEP 4 


THEN GO BACK TO MAIN LOOP 


ELSE GO CHECK RESULTS 


sGIVE PORT SOME TIME 


;GET SA CONTENTS 
;BRANCH IF OKAY 


;SA NOT O IN PURGE/POLL 


;WRITE 0’'S TO SA 
;AND READ IP 


;GO WAIT FOR NEXT TRANSITION 


;GO CHECK COMM AREA 
sHAS UUT BEEN DROPPED 
;LEAVE NOW IF SO 


;IF NO MORE ITERATIONS LEFT 


THEN LEAVE TEST 
ELSE DO IT AGAIN 





SEQ 101 
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TEST 6: PURGE AND POLL TEST 


045200 L10024: 
045200 104401 TRAP CSsETST 








SEQ 102 
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TEST 7: MAXIMUM RING BUFFER TEST 


SEQ 103 


Lk. .-SBTTL TEST 7: MAXIMUM RING BUFFER TEST 
3760 045202 STARS 
og 22 O646466466 646 640466666666 66 64666 2446820464466 426646464864 4ER 4440444464444 RRS 
3761 045202 STARS 
Se 40040466 6646 6464644646646 6664604666464 646464064644 6264660446040640464 4244464048 e202 
3762 $ 
3763 :TEST 7 - MAXIMUM RING BUFFER TEST 
3764 $ THIS TEST IS SIMILAR TO TEST 5, BUT IT WILL UTILIZE 
3765 $ THE MAXIMUM ALLOWABLE RING DEPTH AS SPECIFIED IN 
3766 ; UQSSP. THIS VALUE IS EQUAL TO 128 COMMAND AND i128 
Lag ; RESPONSE SLOTS OF 32 BITS PER SLOT. 
3769 045202 STARS 
Peete t ett ttt et tt ttt eet tT TTT TT TT TTT TTT TT TT TTT TTT TTT TTT TT TTT TTT 
3770 045202 STARS 
jf RRRARAAAAEEE SERS AAEALAAESASAAESASACALHERSARAASALEALRLARLAERRLES 
3771 
3772 045202 BGNTST 
s778 045202 T7:: 
3774 045202 032764 000001 000014 BIT #DRPFLG,LUNFLG(R4) ;IF UUT NOT DROPPED 
3775 045210 001423 BEQ G07 ; THEN DO TEST 
3776 045212 RFLAGS FLAGS ;ELSE GO GET SUPRVISOR FLAGS 
045212 104421 TRAP CS$RFLA 
045214 010037 002334 MOV RO,FLAGS 
3777 045220 032737 001000 002334 BIT #PNT,FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
3778 045226 001412 BEQ i$ ;NO, DON’T PRINT BYPASSED 
3779 045230 PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
045230 013746 002114 MOV L$TEST,-CSP) 
045234 012746 047626 MOV @BYPASS, -(SP) 
045240 012746 000002 MOV #2,-(SP) 
045244 010600 MOV SP ,RO 
045246 104417 TRAP CSPNTF 
045259 062706 000006 ADD #6 ,SP 
3780 045254 1$: EXIT TST ;BYPASSED MESSAGE AND GET OUT 
5254 104432 TRAP CSEXIT 
$78: 045256 000542 -WORD L10025- 
3782 045260 012737 032640 002310 G07: MOV #CTRL,FRUIS ;FAILING FRU IN CASE OF ERROR 
3783 045266 012737 000001 002272 MOV #1, ITRCNT ;SET UP FOR ONE TEST ITERATION 
3784 045274 022737 000001 002270 CMP #1,PASCNT ;I1F FIRST PASS 
3785 045302 001403 BEQ 2$ ; THEN START TEST 
Bae. 045304 012737 000012 002272 MOV #10. ,ITRCNT ; ELSE DO 10 ITERATIONS 
8 
3788 045312 012705 000000 2$: MOV #0,R5 ;SET UP RS AS INDEX TO STEP TABLES 
3789 045316 012737 000001 002316 MOV #1,INISTP :STEP 1 FOR ERROR PRINTOUT 
3790 045324 016437 000004 002250 MOV TKVECCR4), STPTBL ;PUT VECTOR IN STEP 1 
3791 045332 006237 002250 ASR STPTBL ;DIVIDE BY TWO 
3792 045336 006237 002250 ASR STPTBL sDIVIDE BY FOUR 
3793 045342 013737 002250 002264 MOV STPTBL ,.CMPTBL+4 ;PUT VECTOR IN STEP 3 COMPARE 
3794 045350 052737 137400 002250 BIS #137400, STPTBL ;REST OF STEP ONE 
3795 045356 ’ READBUS ;IF QBUS 
045356 1044)7 TRAP C$RDOBU 
3796 045360 - BCOMPLETE 3$ ; THEN BR FOR QBUS SET UP 
045360 103404 BCS 3$ 
3797 045362 012737 004700 002260 MOV #4700, CMPTBL ; ELSE SET UP FOR UNIBUS 


iaomonsDlniecs Shas totin Senile tian 





— 


HARDWARE TEST 
TEST 7: MAXIMUM 


3798 045370 
3799 045372 
3800 


3810 

3811 045456 
3812 045462 
oore 045466 


61 
3815 045470 
045470 


3816 045500 
045500 
3817 045502 
04 
04 
3818 045510 
04 
3819 
38620 045514 
3621 045520 


3822 045524 
3623 045532 


3835 045614 

3836 

3837 045616 
045620 
045622 
045624 

$838 045626 
045626 

3839 045630 
045630 
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RING BUFFER TEST 


000403 
012737 


012737 
012737 
012737 
112737 
012737 
012737 


012737 
004737 


032740 
104406 
013706 


005700 


002312 


002312 





002260 


3°: 
4$: 


5$: 
6%: 
7$: 


8$: 
9$: 





SE2 104 


as 
#6 .S1!8.QB8!8.01!8.00!8.MP,CMPTBL 


SCOMMAR , STPTBL +2 
#010277, CMPTBL+2 
#6 .PP,STPTBL +4 
#40, CMPTBL+5 

#0 ,STPTBL+6 
#040000, CMPTBL +6 


#514. ,CMARLG 
PC ,BAKPAT 


PC ,STEP1 
STEPST 
5$ 


22.,EMSG9, PRIINI 
$EROF 


L10025-. 


#100 ,OUTER 
piggy la 


6000. , INNER 
STKSACR4 ), TKSASV(R4 ) 


8$ 
SAEXP,, TKSASV(R4) 
10$ 


9$ 
SAEXP , TKSASV(R4) 
10% 

PC ,PDELAY 

TOUT 

7$ 


23. .EMSG9, PRIINI 
CSERDF 

23 

EMSG9 

PRIINI 


CsCLPi 
LOGUNT 
LOGUNT ,RO 


:STEP 1 COMPARE VALUE 

;STEP 2 - COMM AREA ADDRESS 
:STEP 2 COMPARE 

;STEP 3 - HIGH ADDRESS AND PRGE/POLL 
sREST OF STEP 3 COMPARE 

;STEP 4 

;STEP 4 COMPARE 


sLENGTH OF COMM AREA FOR THIS TEST 
sFILL COMM AREA WITH ALL 1'S DATA 


:;GO DO IT 
;IF STATUS OKAY 
; THEN CONTINUE TEST 


;"SA CONTENTS IN ERROR” 


;LOOP ON ERROR? 
;DROP UUT 


sLEAVE TST 


sADJUST STEP COUNTER 
sADJUST TABLE INDEX 

s;SET UP FOR DELAY ROUTINE 
sSET UP FOR COMPARE 

sSET UP INNER 

;GET SA CONTENTS 

sARE WE IN STEP 4? 

;BRANCH IF NOT 

sJUST LOOK FOR STEP 4 BIT 
;IT‘S SET SO LET'S GO 
sSTAY IN LOOP OTHERWISE 
sIF SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 


;"SA CONTENTS IN ERROR” 
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TEST 7: MAXIMUM RING BUFFER TEST - SEQ 105 
045634 104451 TRAP —« C$D0DU 
2840 045636 ESCAPE TST 
045636 104410 TRAP ‘ CSESCAPE 
pe, 015040 000160 ‘WORD 110025-. 
3842 045662 016574 002250 000002 10$: MOV § STPTBL(RS),@TKSA(R4) |; WRITE NEXT STEP TO WT 
3843 045650 022705 000004 CHP ss 84. RS VIF STEP 3 
3844 045654 001404 6EQ Ss ; THEN 00 PURGE/POLL STUFF 
3845 045656 022705 000006 CHP 0 s«6 RS SIF NOT IN STEP 4 
3846 045662 001314 BNE S$ ; THEN GO BACK TO MAIN LOOP 
vo 045664 000440 BR 20$ ; ELSE GO CHECK RESULTS 
2849 045666 15$: DELAY 1 GIVE PORT SOME TIME 
045666 012727 000001 MOV —s- @1, (PC) 
045672 ‘WORD (0 
045674 013727 002116 HOV. ss LSDLY.(PC)- 
045700 000000 ‘WORD OO 
045702 005367 177772 bEC ~6{PC) 
045706 001375 BNE be 
045710 005367 177756 DEC "22(PC) 
065714 001367 BNE --20 
3850 045716 017464 000002 000012 MOV -—Ss @TKSACR4), TKSASV(R4) —«;GET SA CONTENTS 
3851 045726 001612 BEQSti‘édLG S SBRANCH IF OKAY 
3853 045726 ERRDF  24.,€MSG13,PRIINI ;SA NOT 0 IN PURGE/POLL 
045726 104455 TRAP —«CSEROF 
045730 000030 ‘WORD 24 
045732 030650 "WORD EMSG13 
045734 032740 "WORD - PRIINI 
3854 045736 CKLOOP 
045736 104406 TRAP C$CLP1 
3855 045740 DODU —LOGUNT 
045740 013700 002312 MOV. — LOGUNT,RO 
045744 104451 TRAP —- C$DODU 
3856 045746 ESCAPE TST 
045746 104410 TRAP - CSESCAPE 
gasy 045750 000050 WORD 10025-. 
3858 045752 012774 000000 000002 16%: MOV 40, @TKSACR4) WRITE 0'S TO SA 
3859 045760 005774 000000 1ST — @TKIPCR4) SAND READ IP 
3860 045764 000653 BR 5$ ;GO WAIT FOR NEXT TRANSITION 
3862 045766 004737 036610 20$: JSR —s- PC. CHKCCOM :GO CHECK COMM AREA 
3863 045772 032764 000001 000014 BIT  @DRPFLG, LUNFLG(R4) sHAS UUT BEEN DROPPED 
3864 046000 001005 BNE —«s TTEXT sLEAVE NOW IF SO 
3865 046002 005337 002272 DEC —sITRCNT SIF NO MORE ITERATIONS LEFT 
3866 046006 001402 BEQ —=s«T7EXT ; THEN LEAVE TEST 
$867 046010 000137 045312 MP tS ; €LSE DO IT AGAIN 
2869 046014 T7EXT: EXIT TST 
046014 104432 TRAP —-C$EXIT 
gary C0016 00002 ‘WORD 110025-. 
3871 046020 ENDTST 
046020 L10025: 
046020 104401 TRAP —«CSETST 


as aeteneeeene ieee 


* ee RR ee 


HARDWARE TEST 


2674 
3875 
3876 


; — 
= nL A ES EE A TRE I NTE — ESE LE A LE LS ET I EE LS CI SESS SS 


046022 
046022 
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TEST 8: EXTENDED ADDRESS TEST 


032764 
001423 


104421 
010037 
032737 
001412 


013746 
012746 
012746 
010600 
104417 
062706 


104432 
000646 


000001 


002334 
001000 


002114 
047626 
000002 


000006 


002274 


032640 


000001 
000001 


000012 
036742 


000014 


002334 


002310 
002272 
002270 


002272 


002316 
002250 


-SBTTL TEST 8: EXTENDED ADDRESS TEST 


STARS 





SEQ 106 


oF FO O2OO26664680 4666S SFSEESEAKESEEKEESESAACKSE SEARLE ALEEEEAEEAEEDR EERE EERE 


STARS 


os FOSS 2O4N46 S46 4ESESEEEEESEEETEESASALESAAAASESLASLALALERERALALAESALALES 


TEST 8 - EXTENDED ADDRESS TEST 


CONTROLLER BOARD. 


THE FORMAT OF THIS TEST IS SIMILAR TO TEST 6, BUT THE 
PROGRAM WILL ESTABLISH THE COMMUNICATION AREA IN THE 
HIGHEST AVAILABLE MEMORY LOCATIONS. 
TESTING OF THE UPPER SIX BITS OF ADDRESS LOGIC ON THE 


THIS WILL ALLOW 


§ s SSSSSEAAEASEAEASESASLEBASCALALEARAAALALSAASAAALESALAAAAASASRALAEALES 


5s FSRSASESSASASLALALESHEEEAREESARASAASEASAAASAAEAAEAALAAAAAAL SEA SALES 


STARS 
STARS 
BGNTSf 
T8:: 
BIT #DRPFLG,LUNFLG(R4) 
BEQ G08 
RFLAGS FLAGS 
TRAP CS$RFLA 
’ MOV RO,FLAGS 
BIT #PNT FLAGS 
BEQ i$ 
PRINTF @BYPASS,L$TEST 
MOV L$TEST,-CSP) 
MOV #BYPASS, -( SP) 
MOV #2,-(SP) 
MOV SP .RO 
TRAP CSPNTF 
ADD #6 ,SP 
i$: EXIT TST 
TRAP CSEXIT 
-WORD 1L10026-. 
G08: TST KTFLAG 
BNE 1$ 
EXIT TST 
TRAP CSEXIT 
-WORD Li0026-. 
is MOV #CTRL,FRUIS 
MOV #1, ITRCNT 
CMP #1,PASCNT 
BEQ 2$ 
MOV #10. ,ITRCNT 
2$: JSR PC, INTMMU 
3$: MOV #0,R5 
MOV #1, INISTP 
MOV TKVECCR4), STPTBL 
ASR STPTBL 
HSR STPTBL 


;IF UUT NOT DROPPED 
; THEN DO TEST 
sELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE'RE PRINTING TEST NUMBERS 
;NO, DON'T PRINT BYPASSED 
; ELSE PRINT THE TEST 


;BYPASSED MESSAGE AND GET OUT 


;IF MEMORY MANAGEMENT AVAILABLE 
: THEN DO TEST 
; ELSE GET OUT 


sFAILING FRU IN CASE OF ERROR 
;SET UP FOR ONE TEST ITERATION 
;IF FIRST PASS 

; THEN START TEST 

; ELSE DO 10 ITERATIONS 


sINITIALIZE MMU REGISTERS 

;SET UP RS AS INDEX TO STEP TABLES 
;STEP 1 FOR ERROR PRINTOUT 

;PUT VECTOR IN STEP 1 

sDIVIDE BY TWO 
;DIVIDE BY FOUR 
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TEST 8: EXTENDED ADDRESS TEST 


SEQ 107 


3914 046200 025737 002250 002264 MOV STPTBL .CMPTBL+4 sPUT VECTOR IN STEP 3 COMPARE 
3915 046206 052737 111000 002250 BIS #111000, STPTBL sREST OF STEP ONE 
3916 046214 READBUS :IF QBUS 
046214 104407 TRAP C$RDBU 
3917 046216 BCOMPLETE 11$ ; THEN BR FOR QBUS SET UP 
046216 103404 BCS 11$ 
3918 0406220 012737 004700 002260 MOV #4700, CMPTBL ; ELSE SET UP FOR UNIBUS 
3919 046226 000403 BR 12$ 
3920 046230 012737 005700 002260 11%: MOV #6 .S1!8.QB8!8 .DI!8.0D!6.MP,CMPTBL 
3921 sSTEP 1 COMPARE VALUE 
3922 046236 012737 060050 602252 12%: MOV SCOMMAR, STPTBL+2 sSTEP 2 - COMM AREA ADDRESS 
3923 046244 042737 160000 002252 BIC #BIT15!BIT14!:B1T13.,STPTBL+2 
3924 sCLEAR THE ACTIVE PAGE FIELD 
3925 046252 012737 010222 002262 MOV #010222, CMPTBL +2 sSTEP 2 COMPARE 
3926 046260 013737 172346 002332 MOV KPAR3S, TEMP ;GET RELOCATION VALUE 
3927 046266 113737 002333 002254 MOVB TEMP +1,STPTBL+4 ;JUST THE HGH BYTE 
3928 046274 006237 002254 ASR STPTBL +4 sMAKE IT THE EXTENDED 
3929 046300 006237 002254 ASR STPTBL +4 ; ADDRESS OF THE COMM AREA 
3930 046304 052737 100000 002254 BIS #B .PP,STPTBL +4 sNOW SET PURGE/POLL BIT 
3931 046312 112737 600040 002265 MOVB #40, CMPTBL+5 sREST OF STEP 3 COMPARE 
3932 046320 012737 000000 002256 MOV #0 ,STPTBL+6 ; ;STEP 4 
aoas 046326 012737 040000 002266 MOV #040000, CMPTBL +6 ;STEP 4 COMPARE 
3935 046334 012737 000022 602306 MOV #18. ,CMARLG sLENGTH OF COMM AREA FOR THIS TEST 
4. 046342 004737 036560 JSR PC ,BAKPAT ' sFILL COMM AREA WITH ALL 1’S DATA 
3938 046346 004737 036434 JSR PC STEP1 :GO DO IT 
3939 046352 005737 002320 TST STEPST ;sIF STATUS OKAY 
coat 046356 001412 BEQ S$ ; THEN CONTINUE TEST 
3942 046360 ERRDF 25.,EMSG9,PRIINI ;"SA CONTENTS IN ERROR” 
046360 104455 TRAP CSERDF 
046362 000031 -WORD 25 
046364 030465 -WORD EMSG9 
046366 032740 -WORD PRIINI 
3943 046370 CKLOOP sLOOP ON ERROR? 
046370 104406 TRAP C$CLPi 
3944 046372 DGDU LOGUNT ;DROP UUT 
046372 013700 002312 MOV LOGUNT ,RO 
046376 104451 TRAP CsD00U 
3945 046400 ESCAPE IST ;LEAVE TST 
046400 104410 TRAP CSESCAPE 
5046 046402 000342 -WORD 1L10026-. 
3947 046404 005237 002316 5$: INC INISTP sADJUST STEP COUNTER 
3948 946410 062705 000002 ADD #2,R5 sADJUST TABLE INDEX 
3949 046414 012737 000100 002326 6%: MOV #100 ,OUTER ;SET UP FOR DELAY ROUTINE 
3950 046422 016537 002260 002314 MOV CMPTBLCRS) ,SAEXP ;SET UP FOR COMPARE 
3951 046430 012737 037200 002324 7%: MOV #16000. , INNER ;SET UP INNER 
3952 046436 017464 000002 000012 MOV @TKSACR4), TKSASV(R4) sGET SA CONTENTS 
3953 046444 022705 000006 CMP #6,R5 ;ARE WE IN STEP 4? 
3954 046450 001005 BNE 8$ s;BRANCH IF NOT 
3955 046452 033764 002314 000012 BIT SAEXP , TKSASV(R4) ;JUST LOOK FOR STEP 4 BIT 
3956 046460 001024 BNE 10$ sIT‘S SET SO LET'S GO 
3957 046462 000404 BR 9$ sSTAY IN LOOP OTHERWISE 
3958 046464 023764 002314 000012 8s: CMP SAEXP, TKSASV(R4) ;IF SA IS WHAT WE EXPECT 
3959 046472 001417 BEQ 10$ ; THEN MOVE ALONG 





HARDWARE TEST 
TEST 8: EXTENDED ADDRESS TEST 


3960 046474 


Je ORD Week 0 Pe 
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016574 
022705 
001404 
022705 
001314 
000440 


012727 


030650 
032740 


104406 


013700 
104451 


104410 
000104 


012774 
005774 
000653 


004737 
032764 


036406 
002330 


002312 


002250 
000004 


000006 


000001 
002116 
17777< 
177756 
000002 


002312 


000000 
000000 


036610 


000001 000014 


000002 10%: 


000012 


000002 16$: 


9$: 


20$: 
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PC .PDELAY 
TOUT 
7$ 


26.,EMSG9, PRIINI 
CSERDF 

26 

EMSG9 

PRIINI 


CS$CLP1i 
LOGUNT 
LOGUNT ,RO 
C$DODU 
TST 
CSESCAPE 
L10026-. 


STPTBLCRS) ,A@TKSACR4) 
#4,R5 


15$ 
#6,R5 
3$ 
20$ 


1 
sip 


@TKSACR4), TKSASV(R4) 
16$ 


27.,EMSGi3,PRIINI 
SERDF 


CSCLP1 
LOGUNT 
LOGUNT ,RO 
C$D0DU 
TST 
CSESCAPE 
L10026-. 


#0 , ITKSACR4 ) 
“ameale 
$ 


PC ,CHKCOM 
#DRPFLG,_LUNFLG(R4) 


; ELSE GIVE UUT SOME TIME 
;IF NO TIMEOUT YET 


; THEN GO TAKE ANOTHER LOOK 
;"SA CONTENTS IN ERROR” 


sWRITE NEXT STEP TO UUT 

sIF STEP 3 

; THEN DO PURGE/POLL STUFF 
;IF NOT IN STEP 4 

; THEN GO BACK TO MAIN LOOP 
; ELSE GO CHECK RESULTS 


s;GIVE PORT SOHE TIME 


sGET SA CONTENTS 
sBRANCH IF OKAY 


;SA NOT O IN PURGE/POLL 


;WRITE 0'S TO SA 
;AND READ IP 
;GO WAIT FOR NEXT TRANSITION 


;GO CHECK COMM AREA 
sHAS UUT BEEN DROPPED 





SEQ 108 
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046670 


046672 
046700 
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TEST 8: EXTENDED ADDRESS TEST 


001021 


062737 
102406 
023737 
103402 
000137 


005037 
005337 
001402 
000137 
005037 


104432 
000002 


104401 


002000 172346 
002120 172346 


046150 


177572 
002272 


046144 
177572 


<5$: 


TSEXT: 


L10026: 
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T8EXT 
#2000, KPARS 
25$ 


! SHIME .KPARS 
<S$ 
3$ 


MMUSRO 
ITRCNT 
T8EXT 
2$ 


MMUSRO 
7ST 
cSEXIT 
L10026-. 


CSETST 


sLEAVE NOW IF SO 


:POINT TO NEXT 32KWORDS 
;DON‘T ALLOW OVERFLOW IF 4 MBYTES 





SEQ 109 


;IF THERE'S NO MORE MEMORY AVAILABLE 


; THEN CHECK FOR MORE ITERATIONS 
; ELSE DO IT AGAIN 


sSHUT DUWN MEMORY MANAGEMENT 
;IF NO MGRE ITERATIONS LEFT 
; THEN LEAVE TEST 

; ELSE DO IT AGAIN 


sMAKE SURE IT’S OFF 


- 


HAROWARE TEST 
TEST 9:GET DUST STAT 


4010 
4011 
4012 


4013 


4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 


4026 


4027 
4028 


4029 
4030 
4031 
4032 


4033 
4034 
4035 


. ee 


046746 
046746 
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032764 
001423 


104421 
010037 
032737 
001412 


013746 


012737 


009001 


002334 
001000 


002114 
047626 
000002 


000006 


000014 


002334 


000014 
002310 


000014 
002272 
023042 
000014 
000014 
002272 


-SBTTL TEST 9:GET DUST STATUS 


STARS 


5s SSS O464064046 66 6466646646464 6464646466466 4640466 6446406460546 448466046 44464644640 4R 04% 


STARS 


os SEREESSESSEEALESEEASESSASEALASAAALALESELEA LS EAKAAEALEAEALARRALALE 


- GET DUST STATUS 
THE GET DUST STATUS TEST WILL REQUEST AND TEST THE DUST 
STATUS OF EACH UNIT UNDER TEST FOR TWO SPECIFIC CASES: 
1) NO COMMAND MODIFIERS SET AND 2) ILLEGAL COMMAND 


TEST 9 


STARS 


MODIFIERS SET. 


DUST STATUS WILL BE RECEIVED FROM THE 


UNIT UNDER TEST AFTER THE PROGRAM ISSUES THE GET DUST 


STATUS COMMAND AVAILABLE IN DUP. 


THE RESPONSE PACKET 


RECEIVED FROM THE UNIT WILL BE TESTED AGAINST A KNOWN 
GOOD MASK. 


ss FSSAEAEAEAEESEASESESAKALEKEAARAEAREKESALERERAASALERAARAEALELEALS 


STARS 


§ 5 RERRAAASASEEEALELAERAEEAAKARAAAAKARARAARAEAEEAAEAARAREAAAKALRELEREAS 


T9:: 


1$: 


GO9: 


BGNTST 


#DRPFLG,_LUNFLG(R4) 
GO9 


FLAGS 

CS$RFLA 
RO,FLAGS 

#PNT FLAGS 

i$ 
#BYPASS,L$TEST 
L$TEST,-CSP) 
#BYPASS, -CSP) 
#2,-(SP) 

SP ,RO 

CSPNTF 

#6 ,SP 

TST 

CSEXIT 
L10027-. 


#DUPFLG,LUNFLGC(R4) 
#CTRL,FRUIS 

PC ,PRTINT 
#DRPFLG,LUNFLG(R4) 
T9EXT 

#SCTRLC,RS 
#1,ITRCNT 

&SCCCMD, CURCMD 

PC ,CLSORV 
#DRPFLG,LUNFLGC(R4) 
T9EXT 

#DUPFLG, LUNFLGC(R4) 
#GDUST,RS 
#1,ITRCNT 


;IS THE ORIVE AVAILABLE 
;GQ DO TEST IF AVAILABLE 
sELSE GO GET SUPRVISOR FLAGS 


;SEE IF WE‘RE PRINTING TEST NUMBERS 
3NG, DON'T PRINT BYPASSED 
; ELSE PRINT THE TEST 


sBYPASSED MESSAGE AND GET OUT 


;CLEAR DUP FLAG 

;SET UP FRU POINTER 

;G0 DO A PORT INITIALIZE 

;IS THE ORIVE AVAILABLE 

;GET OUT IF NOT AVAILABLE 
;SET UP TO DO THE SCC COMMAND 
;D0 IT ONCE 

;SET UP COMMAND ASCII 

;GO ISSUE THE COMMAND 

sIS THE DRIVE AVAILABLE 

;GET OUT IF NOT AVAILABLE 
;SET DUP FLAG FOR FOLLOWING COMMAND 





SEQ 110 


sSET UP TO DO GET DUST STATUS COMMAND 





HAROWARE TEST 
TEST 9:GET DUST 


4052 047130 
4053 047136 
4054 047142 
4055 047150 
047156 
047152 
4056 047154 
047154 
047154 
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STATUS 
012737 
004737 
042764 
104432 
000002 


104401 





032714 023042 MOV &GDSCMD..CURCMD ;SET UP COMMAND ASCII 
037274 JSR PC.CLSORV ;GO ISSUE THE COMMAND 
000010 000014 BIC SDUPFLG.LUNFLG(R4) ;CLEAR DUP FLAG 
T9EXT: EXIT TST 
TRAP CSExIT 
-WORD 110027-. 
ENDTST 
L10027: 
TRAP CSETST 





HARDWARE TEST 
TEST 10:EXECUTE LOCAL PROGRAM (Level II microdiagnostics) 


-SBTTL TEST 10:EXECUTE LOCAL PROGRAM (Level II microdiagnrostics) 


4058 
4059 
4069 


4061 


047156 
047156 
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032764 
001423 


104421 
010037 
032737 
001412 


013746 


104432 
000372 


042764 
042764 
042764 
012737 
004737 


000001 


002334 
001000 


002114 
047626 
000002 


000006 


000010 


000020 
000040 





000014 


002334 


000014 
000014 
000014 
002310 


000014 
002272 
023042 
000014 
002272 
023042 
000004 
000014 
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STARS 





Teena 





SEQ 112 


5s 8926464666466 6466646 464646464646 6460466464646 64 004646 646 0046464640404 0404600460046 0408 


STARS 


ian en eee 


;TEST 10 - EXECUTE LOCAL PROGRAM 


3 THIS TEST WILL INVOKE, VIA THE DUP EXECUTE LOCAL 
3 PROGRAM COMMAND, THE CONTROLLER RESIDENT LEVEL 2 
3 MICRODIAGNOSTICS. 
STARS 
errr ror rrr eter iret eit ttt ttt ttt tet eT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
STARS 
fp SERAAAAEAAEAEAARASAGARAAARAAAGARAARESSRALARALARERREALERRERRRARES 
BGNTST 
T10:: 
BIT #DRPFLG,LUNFLGCR4) ;IS THE DRIVE AVAILABLE 
BEQ GO010 ;GO DO TEST IF AVAILABLE 
RFLAGS FLAGS ;ELSE GO GET SUPRVISOR FLAGS 
TRAP CSRFLA 
MOV RO,FLAGS 
BIT #PNT ,FLAGS ;SEE IF WE'RE PRINTING TEST NUMBERS 
BEQ i$ ;NO, DON’T PRINT BYPASSED 
PRINTF #BYPASS,L$TEST ; ELSE PRINT THE TEST 
MOV L$TEST,-CSP) 
MOV #BYPASS, -CSP) 
MOV #2,-CSP) 
MOV SP RO 
TRAP CSPNTF 
ADD #6 , SP 
1$: EXIT TST ;BYPASSED MESSAGE AND GET OUT 
TRAP CSEXIT 
-WORD L10030-. 
GO10: BIC #DUPFLG,LUNFLGCR4) ;CLEAR DUP FLAG 
BIC #ABTFLG,_LUNFLGCR4) ;CLEAR ABORT FLAG 
BIC #CNTRLC,LUNFLGCR4) ;CLEAR CONTROL C FLAG 
MOV #CTRL,FRUIS ;SET UP FRU POINTER 
JSR PC .PRTINT :GO DO A PORT INITIALIZE 
BIT #DRPFLG,_LUNFLGCR4) :IS THE DRIVE AVAILABLE 
BNE TSTXEX ;GET OUT IF NOT AVAILABLE 
MOV #SCTRLC,.RS ;SET UP TO DO THE SCC COMMAND 
MOV #1,ITRCNT 300 IT ONCE 
MOV #SCCCMD, CURCMD ;SET UP COMMAND ASCII 
JSR PC,CLSDRV ;GO ISSUE THE COMMAND 
BIT #DRPFLG,LUNFLG(R4) :I1S THE ORIVE AVAILABLE 
BNE TSTXEX ;GET OUT IF NOT AVAILABLE 
MOV #ONLINE,R5S ;SET UP TO DO THE ONLINE COMMAND 
MOV #1 , ITRCNT :D0 IT ONCE 
MOV #ONLCMD , CURCMD ;SET UP COMMAND ASCII 
MOV MSCPUNCR4) ,P .UNITCRS) ;PUT THE UNIT NUMBER IN THE PACKET 
JSR PC ,,CLSDORV :GO ISSUE THE COMMAND 
BIT #DRPFLG,LUNFLGC(R4) :IS THE DRIVE AVAILABLE 
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TEST 10:EXECUTE LOCAL PROGRAM (Level II microdiagnostics) 


SEQ 113 





4100 047374 oOOo1i111 BNE TSTXEX ;GET OUT IF NOT AVAILABLE 
4101 047376 052764 000010 000014 BIS @DUPFLG, LUNFLG(R4) ;ALL FOLLOWING COMMANDS ARE DUP 
4102 047404 012705 002476 MOV #XLOCPR,RS ;SET UP TO DO ELP COMMAND 
4103 047410 012737 000001 002272 MOV #1, ITRCNT ;00 IT ONCE 
4104 047416 012737 032721 023042 MOV SELPCMD, CURCMD ;SET UP COMMAND ASCII 
4105 047424 064737 037274 JSR PC ,.CLSDRV ;GO ISSUE THE COMMAND 
4106 047430 032764 000001 000014 BIT #DRPFLG,LUNFLG(R4) :IS THE DRIVE AVAILABLE 
4107 047436 001070 BNE TSTXEX ;GET OUT IF NOT AVAILABLE 
4108 047440 032737 000200 177560 i$: BIT #B1IT7,RCSR ;CHECK FOR INPUT FROM KEYBOARD 
4109 047446 001413 BEQ $ ;IF NONE, CONTINUE 
4110 047450 013705 177562 MOV RBUF .RS ;GET DATA INPUT FROM KEYBOARD 
4111 047454 042705 000200 BIC #BIT7,R5 ;STRIP PARITY 
4112 047460 022705 000003 CMP #3,R5 ;CHECK FOR “CONTROL C” INPUT 
4113 047464 001004 BNE 2s ;IF NOT, CONTINUE 
4114 047466 052764 000040 000014 BIS #CNTRLC,LUNFLGC(R4) ;SET “CONTROL C” FLAG 
4115 047474 000432 BR 20$ ;GO ABORT MICRODIAGNOSTICS 
4116 047476 012705 002524 - 2$: MOV #RCVDAT,RS ;SET UP TO DO RECEIVE DATA COMMAND 
4117 047502 012737 000001 002272 MOV #1, ITRCNT ;D0 IT ONCE 
4118 047510 012737 032726 023042 MOV #RCVCMD, CURCMD :SET UP COMMAND ASCII 
4119 047516 004737 037274 JSR PC ,CLSORV :GO ISSUE THE COMMAND 
4120 047522 032764 0900001 000014 BIT #DRPFLG,LUNFLGC(R4) ;IS THE DRIVE AVAILABLE 
4121 047530 001033 BNE TSTXEX ;GET OUT IF NOT AVAILABLE 
4122 047532 032764 000020 000014 BIT #ABTFLG,LUNFLGC(R4) ;ABORT LOCAL PROGRAM ? 
4123 047540 001010 BNE 20$ ;YES, ISSUE ABORT COMMAND 
4124 047542 005002 CLR 2 ;NO, SET UP DELAY LOW COUNT 
4125 047544 012703 000020 MOV #20,R3 ;SET UP DELAY HIGH COUNT 
4126 047550 005202 10$: INC Re ;DELAY 
4127 047552 001376 BNE 10$ 
4128 047554 005303 DEC R3 
4129 047556 001374 BNE 10$ 
4130 047560 000727 BR i$ ;POLL DIAGL2 PROGRESS 
4131 047562 012705 002554 20$: MOV #ABORT ,RS ;SET UP TO DO ABORT COMMAND 
4132 047566 012737 000001 002272 MOV #1,ITRCNT ;D0 IT ONCE 
4133 047574 012737 032733 023042 MOV #ABTCMD, CURCMD ;SET UP COMMAND ASCII 
4134 047602 004737 037274 JSR PC ,CLSDRV ;GO ISSUE THE COMMAND 
4135 047606 032764 000040 000014 BIT #CNTRLC,LUNFLGCR4) ;CHECK IF ABORTING DUE TO “CONTROL C” 
4136 047614 001401 BEQ TSTXEX ;IF NOT, EXIT 
4137 047616 BREAK 

047616 104422 TRAP CSBRK 
4138 047620 TSTXEX: EXIT TST 

047620 104432 TRAP CSEXIT 

047622 000002 -WORD 1L10030- 
4139 047624 ENDTST 

047624 L10030: 

047624 104401 TRAP CSETST 
4140 047626 045 116 045 BYPASS:: -ASCIZ /sSNSA TEST #6Z38A BYPASSEDSN/ 
4141 EVEN 
4142 047662 ENDMOD 
alas . TITLE PARAMETER CODING 
ake .SBTTL. HARDWARE PARAMETER CODING SECTION 
4184 047662 BGNMOD 
4185 
4186 3 ++ 
4187 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
4188 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
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4196 
4202 
4203 


4204 


4205 
04 


047722 
047737 
047751 


047774 
047774 





000251 


026004 


124 
124 
124 
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HARDWARE PARAMETER CODING SECTION 


113 
113 
057 


111 
040 
115 


MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
-WORD L10031-L $HARD/2 


LSHARD: : 
GPRMA TKIPAD,0,0,160002,177564,YES 
-WORD TSCODE 
-WORD TKIPAD 
-WORD TS$LOLIM 
-WORD TSHILI 
GPRMD TKVECT,2.0.777,60,776, YES 
-WORD TSCODE 
- WORD TKVECT 
-WORD 777 
-WORD TS$LOLIM 
-WORD TS$HILIM 
GPRMD TKUNT,4,0,777,0,251, YES 
-WORD TSCODE 
-WORD TKUNT 
-WORD 777 
-WORD TS$LOLIM 
-WORD TS$HILIM 
EXIT HRD 
-WORD TSCODE 
TKIPAD: .ASCIZ ?TKIP ADDRESS? 
TKVECT: .ASCIZ ?TK VECTOR? 
TKUNT: .ASCIZ ?T/MSCP UNIT NUMBER? 
-EVEN 
ENDHRD 
-EVEN 
L1i0031: 





SEQ 114 
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SOFTWARE PARAMETER CODING SECTION 


4226 


4237 047774 
047774 
047776 


7 
4248 047776 
047776 


000000 


0€ 000 


000000 
000000 


. SBTTL 


3** 


L¢SOFT:: 
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SOFTWARE PARAMETER CODING SECTION 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT 4RE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNSFT 
-WORD L10032-L$SOFT/2 


ps RERRASSESASEAESESALEAALAEALAASALAAEREASAAEAREEASALALAALELESELES 
ss SRAESAASKAAEAALASRASESAAAAESRRAREALEARALEARSEASALALALALEAAEASEEEALS 


;COMMUNICATIONS AREA 


3 
; 
6 
; 
+ 
; 
: 


THIS IS THE COMMUNICATIONS AREA THAT IS USED 
THROUGHOUT THE PROGRAM IN TESTING THE PERMUTATIONS 
OF THE UQ-PORT INIT SEQUENCE. IT IS ESSENTIAL THAT 
THIS AREA RESIDE IN AN 8KBYTE AREA OF MEMORY FREE 
OF DIAGNOSTIC CODE SO THAT IT MAY BE SUCCESSFULLY 
aaa THROUGHOUT UPPER MEMORY VIA MEMORY MAN- 


5 
§ § SRHSSREASASAEASASAASASEAARAKALEASALAREAASEASERAKARESREAARERELELS 
§ fs PRES ASESARSESEKAKALESALEALEARREBABRAEAEARALERAREEALEAEAAE AAAS ERS 


RDBUF: : 
COMMBF : : 


COMMAR: : 
LASTBF:: 


L$LAST:: 


~END 


- 60000 sSTART OF THE THIRD 8KBYTE BLOCK 
OF VIRTUAL MEMORY SPACE. ACCESIBLE 
;VIA PAR/PDR 2. 


_BLKW 20. sBUFFER SPACE PRECEDING COMM AREA 
-BLKW 514. sMAXIMUM COMM AREA LENGTH 

-BLKW 20. sBUFFER SPACE SUCCEEDING COMM AREA 
LASTAD 

.EVEN 

-WORD 0 

-WORD 0 

ENDMOD 


SEQ 115 














_—— 
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Symbol teble 


ABORT 002554 CMDCNT 003034 G CsMMU = 000103 EXIT 040610 G$RADL= 000120 
ABTCMD 032733 G CMDREF 003032 G C$MSG = 000023 EXTINT 036070 G$RADG= 000020 
ABTFLG= 000020 G CMORNG 003014 G CSOPNR= 000034 EXTVEC 036404 G$XFER= 000004 
ADR = 000020 G CMDSAV 023036 G CSOPNW= 000104 ESEND = 002100 G$YES = 000010 
ASSEMB= 000010 CHMERR 002302 G C$PNTB= 000014 E$LOAD= 000035 HBFADD 023362 
BAKPAT 036560 G CMPTBL 002260 G C$PNTF= 000017 FLAG = 040000 G HELP = 000000 
ITO * 000001 G CMIBLG 002304 G CSPNTS= 000016 FLAGS 002334 G HIADDR= 000002 G 
BITOO = 000001 G CNTER = 000000 C$PNTX= 000015 FRUIS 002310 G E = 100000 G 
BITO1 = 000002 G CNTERR 023322 C$PUTB= 000072 FSAU = 000015 HSTIMO= 000000 G 
BITO2 = 000004 G CNTFLG 003026 G C$PUTW= 000073 F$AUTO= 000020 IBE = 010000 G 
BITO3 = 000010 G CNTHI 003024 G C$QIO = 000377 F$BGN = 000040 IDU = 000040 G 
BIT04 = 000020 G CNTRLC= 000040 C$RDBU= 000007 F$CLEA= 000007 IER = 020000 G 
BITOS = 000040 G COMMAR 060050 G C$REFG= 000047 F$DU = 000016 ILLINT 036072 G 
BIT06 = 000100 G C$REL = 000077 F$END = 000041 ILOO® 037072 
BITO7 = 000200 G CONID = 177777 G C$RESE= 000033 F$HARD= 000004 IMM = =_ 000200 G 
BITOB = 000400 G CRD = 177776 G C$REVI= 000004 F$HW = 000013 IM 041046 
BITO9 = 001000 G CTRL 032640 G CSRFLA= 000021 F$INIT= 000006 INISTP 002316 G 
BIT1 = 000002 G CURCMD 023042 G C$RPT = 000025 F$JMP = 000050 INNER 002324 G 
BIT10 = 002000 G CsAU = C$SEFG= 000046 F$MOD = 000000 INTFLG= 000002 G 
BIT11 = 004000 G C$AUTO= 000061 C$SPRI= 000041 F$MSG = 000011 INTMMU 036742 G 
BIT12 = 010000 G C$BRK = 000022 C$SVEC= 000037 F$PROT= 000021 INTRCV 036062 G 
BIT13 = 020000 G C$BSEG= 000004 C$TOME= 000076 F$PWR = 000017 INTTBL 037264 
BIT14 = 04 C$BSUB= 000002 DCERR 023312 FSRPT = 000012 INVSTA 023332 
BITiS = 100000 G C$CLCK= 000062 DFPTBL 002202 G F$SEG = 000003 ISR = 000100 G 
BIT2 = 000004 G CS$CLEA= 000012 DIAGMC= 000000 F$SOFT= 000005 ITRCNT 002272 G 
BIT3 = 000010 G C$CLOS= 000035 DRPFLG= 000001 G F$SRV = 000010 IXE = 004000 G 
BIT4 «= 000020 G CSCLP1= 000006 DRVE 032655 G F$SUB = 000002 I$AU = 000041 
BITS = 000040 G CSCPBF= 000074 DRVER = 000011 G F$SW = 000014 I$AUTO= 000041 
BIT6 = 000100 G C$CPME= 000075 DSCEND 003024 G FSTEST= 000001 ISCLN = 000041 
BIT7 = 000200 G CSCVEC= 000036 DSCRNG 003000 G GD 032714 G I$DU = 000041 
BIT8 = 000400 G C$DCLN= 000044 LG= 000010 G GDUST 002456 ISHRD = 000041 
BIT9 = 001000 G C$DODU= 000051 DUSTFL= 000017 G G = 000001 G ISINIT= 000041 
BOE = C$ORPT= 000024 EF .CON= 000036 G GOABO 040600 ISMOD = 000041 
BPNERR 023342 C$DU = 000053 EF .NEW= 000035 G GO10 047234 ISMSG = 000041 
BRFLAG= 000004 C$EDIT= 000000 EF .PWR= 000034 G G02 041726 I$PROT= 000040 
BYPASS 047626 G CSERDF= 000055 EF .RES= 000037 G G03 042510 ISPTAB= 000041 
B,0I = 000400 G CSERHR= 000056 EF .STA= 00 G G04 043176 ISPWR = 000041 
B.ER = 100000 G CSERRO= 000060 ELPCMD 032721 G GOS 043772 ISRPT = 000041 
B.GO = 000001 G CSERSF= 000054 EMSG10 030512 G G06 044440 ISSEG = 000041 
B.IE = 000200 G C$ERSO= 000057 EMSG11 030540 G G07 045260 ISSETU= 000041 
B.LF = 000002 G C$ESCA= 000010 EMSGi2 030601 G G08 046100 I$SSFT = 000041 
B.MP = 000100 G C$ESEG= 000005 EMSG13 030650 G GO9 047024 ISSRV = 000041 
B.NV = 002000 G CSESUB= 000003 EMSG14 030677 G G$CNTO= 000200 I$SUB = 000041 
B.00 = 000200 G CSETST= 000001 EMSG15 030726 G G$DELM= 000372 I$TST = 000041 
B.PI = 000001 G C$EXIT= 000032 EMSGS 030334 G G$DISP= 000003 JSJMP = 000167 
B.PP = 100000 G CSFREQ= 000101 EMSG6 030355 G G$EXCP= 000400 KPARO = 172340 G 
B.QB = 001000 G C$FRME= 0001 EMSG7 030406 G G$HILI= 000002 KPAR1 = 172342 G 
B.S1 = 004000 G C$GETB= 000026 EMSGB 030427 G G$LOLI= 000001 KPAR2 = 172344 G 
B.S2 = 010000 G C$GETW= 000027 EMSG9 030465 G G$NO = 000000 KPAR3 = 172346 G 
B.S3 = C$GMAN= 000043 END 041042 G$OFFS= 000400 KPAR4 = 172350 G 
B.S4 = 040000 G C$GPHR= 000042 ENDCLE 041110 GSOFSI= 000376 KPARS = 172352 G 
> C$GPRI= 000040 ERR = 100000 G G$PRMA= 000001 KPAR6 = 172354 G 
CORECV 037774 G CSINIT= 000011 ERRBLK 023060 G G$PRMD= 000002 KPAR7 = 172356 G 
036610 G C$INLP= 000020 ERRMSG 023056 G G$PRML= 000000 KPDRO = 172300 G 
CKCMEX 036740 C$MANI= 000050 ERRNBR 023054 G G$RADA= 000140 KPDR1 = 172302 G 
CLSORV 037274 G C$MAP = 000102 ERRTYP 023052 G G$RADB= 000000 KPDR2 = 172304 G 
CMARLG 002306 G C$MEM = 000031 EVL = 000004 G G$RADD= 000040 KPDR3 = 172306 G 





| 
= 
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Symbol table 


KPOR4 = 172310 G LSLUN 002074 G L2ELDF= 000156 G 21 024417 G MSCPER 040520 
KPORS = 172312 G L$MREV 002050 G L2ELDS= 000166 G L210 025073 G MSCPUN= 000006 G 
KPDR6 = 172314 G L$NAME 002000 G L2ELEC= 000140 G L211 025137 G MSCPVR= 
KPOR7 = 172316 G L$PRIO 002042 G L2ELEV= 000136 G L212 025203 G MSGLEN= 177774 G 
KTEXT 0 L$PROT 023044 G L2ELFL= 000135 G L213 025247 G NEXT 040740 
KTFLAG 002274 G L$PRT 002112 G L2ELFM= 000134 G L214 025313 G NOKT 036246 
KTTEST 036102 G LSREPP 002062 G L2ELLB= 000162 G L215 025357 G NUPASS 040724 
LASTBF 062054 G L$REV 002010 G L2ELOF= 000172 G L216 025423 G ONEF IL = i 
LINE1 023420 G L$RPT 035002 G L2ELPB= 000160 G L219 025467 G ONLCMD 032670 G 
LINE2 34 L$SOFT 047776 G L2ELPi= 000146 G L22 024473 G ONLINE 002406 
LINES 023534 G L$SPC 002056 G L2ELP2= 000150 G L220 025533 G OP .ABT= 000006 G 
LINES G L$SPCP 002020 G L2ELRL= 000144 G L221 025601 G OP .ELP= 000003 G 
LINES 023626 G L$SPTP 002024 G L2ELRT= 000145 G L222 025646 G OP .END= 000200 G 
LINE6 023703 G L$STA 002030 G L2ELRW= 000170 G L223 025710 G OP .GDS= 000001 G 
LINE7 023746 G L$ 002212 G L2ELST= 000154 G L224 025752 G OP.ONL= 000011 G 
LOE = G L$TEST 002114 G L2ELTN= 000157 G L225 026011 G OP .REC= 000005 G 
LOGUNT 002312 G L$TIML 002014 G L2ELTO= 000163 G L226 026053 G OP.SCC= 000004 G 
LOOP 037062 L$UNIT 002012 G L2ELT1= 000164 G L227 026115 G OUTER 002326 G 
LOT «= 0000 L10000 002210 L2ELT2= 000165 G L228 026154 G N = 100000 G 
LUNBLK 002212 G 110001 002212 L2ERi 030763 G L229 026213 G O$APTS= 00 
LUNFLG» L10003 033542 L2ER10 031211 G L23 024531 G O$AU = 000000 
L9ACP 002110 G L10004 035000 L2ER11 031232 G L230 026255 G O$BGNR= 000001 
LOAPT 002036 G L10005 036052 L2ERi2 031246 G L231 026317 G O$BGNS= 000000 
LeAU 041144 G L10006 036060 L2ER13 031266 G L232 026361 G O$DU = 000001 
L8AUT 002070 G L10007 036070 L2ER14 031306 G L233 026423 G OSERRT= 000001 
L9AUTO* ssanne GX L10010 036100 L2ERIS 031334 G L234 026462 G O$GNSW= 0000 
LSCCP 002106 G L10011 041076 L2ER16 031364 G L235 026524 G O$POIN= 000001 
LOCLEA 041100 G L10012 041126 L2ERI7 031412 G L236 026566 G O$SETU= 000000 
002032 G L10013 041142 031430 G L237 026630 G PAROFF 002300 G 
L9DEPO 002011 G L10014 041150 L2ER19 031451 G L238 026672 G PASCNT 002270 G 
L#DESC 50 L10015 041646 L2ER2 031003 G L239 026731 G PCKSIZ 003030 G 
L9DESP 002076 G L10016 041336 L2ER20 031467 G L24 024571 G PDELAY 036406 G 
L9DEVP 002060 G L10017 041602 L2ER21 031551 G L240 026770 G PDLYEX 036432 
L9DISP 002124 G L10020 042430 L2ER22 031631 G L241 027027G PDRECV 040102 G 
LODLY 002116 G L10021 043116 L2ER23 031720 G L242 027071 G PNT = 001000 G 
002040 G L10022 043712 L2ER24 032010 G L244  027130G PRI = 002000 G 
LODTYP 002034 L10023 044360 L2ER25 032076 G L245 0272246 PRIDAT 033074 G 
L#DU 041130 G L10024 045200 032167 G L246 027320 G PRIERR 033146 G 
L8DUT 002072 G L10025 046020 L2ER27 032261 G L247 027414G PRIEX 033536 
L8OVTY 023412 G L10026 046744 L2ER3 031023 G L248 027510 G PRIINI 032740 G 
' 002052 G L10027 047154 L2ER4 031040 G L249 027604 G PRIIP 033122 G 
LSENVI 04 L10030 047624 L2ERS 031057 G L25 024631 G PRIPAD 033022 G 
LOERRT 023052 G L10031 047774 L2ER6 031107 G L250 027700 G PRISA 032764 G 
LOeTP L10032 047776 L2ER7 031127 G L251 027774 G PRIVAD 033046 G 
L8EXP1 002046 G L2BRDi= 000024 G L2ER8 031145 G L252 030070 G PRIOO = 000000 G 
LOEXP4 L2BRD2= 000030 G L2ER9 031160 G L253 030164 G PRIO1 = 000040 G 
LSEXPS G L2BWR1= 000014 G L2ETBL 02 G L254 030260 G PRIO2 = 000100 G 
LSHARD 047664 G L2BWR2= 000020 G L2MSG 023312 L26 024671 G PRIO3 = 000140 G 
LOHIME 002120 G L2CMD = 000010 G L2REP1= 000050 G L27 024731 G PRI04 = 000200 G 
LOHPCP 002016 G L2CRCi= 000044 L2REP2= 000052 G L28 024771 G PRIOS = 000240 G 
L8HPTP 002022 G L2CRC2= 000046 G L2RSP = 000011 G L29 025026 G PRIO6 = 000300 G 
LsHw «=: 002202 G L2DATA 040224 G L2STA = 000002 G MMON = 1G PRIO7 = 000340 G 
L8ICP 002104 G L2DRV = 000004 G L2SWR1= 000034 G MMUSRO= 177572 G PRIDRV 037632 G 
LSINIT 040620 G L2 033544 G L2SWR2= 000036 G MMUSR1= 177574 G PRTINT 037042 G 
LSLADP 002026 G L2ECC1= 000040 G L2TRK = 000007 G MMUSR2= 177576 G P.BCNT= 000014 G 
L8LAST 062130 G L2ECC2= 000042 G L2TST = 000006 G MMUSR3= 172516 G 
L8LOAD 002100 G L2ELDE= 000155 G L2UNT = 000012 G MM220N= 000020 G 








PARAMETER CODING 











MACRO 105.02 Thursday 25-Jul-85 09:27 Page 68-3 SEQ 118 

Symbol table 
FP .ExTi= 000014 G STEPST 002320 G TSEXCP= 000000 T$$SOF= 010032 WRCMD OF2702 G 
P.EXT2= 090015 G STEP1 036434 G TSFLAG= 000041 TS$SRV= 010010 WRCMDE 033256 G 
P.ExT3=« 090016 G STPTBL 002250 G TSGMAN= 000000 TS$SUB= 010017 WRDATA 002322 G 
P.FLGS= 000011 G STPIER 036552 TSHILI= 000251 T$$SW = 010001 WRER1 032347 G 
F.INDi= 900020 G STP1EX 036556 TSLAST= 000001 TSSTES= 010030 WRER2 032401 G 
P.IND2+ 000022 G SVCGBL= 006000 TSLOLI= 000000 Ti 041152 G WRERS 032422 G 
P."OD + 900012 G SVCINS= 000000 TSLSYM= 010000 Ti.1 041200 WRERS4 032450 G 
P.OPCD= 000010 G SVCSUB= 000000 TSLTNO= 000012 T1.2 041364 WRERS 032474 G 
P.STS = 000012 G SVCTAG= 000000 TSNEST= 177777 T10 047156 G WRER6 032525 G 
P.UNIT= 000004 G SVCTST= 000000 TSNSO = 000000 T2 041650 G WRER7 032546 G 
RBUF 06 177562 G S$LSYM= 010000 TSNS1 = 000005 T2EXT 042424 WRERS 032614 G 
RCSR * 177560 G Si = 004000 G TSNS2 = 000002 T3 042432 G WREX 033512 G 
RCVCMD 032726 G TEMP 002332 G TSPTNU= 000000 T3EXT 043112 WRINTO 033176 G 
REVDAT 002524 TF .BLK= 000010 G TSSAVL= 177777 T4 043120 G WRPRTE 033222 G 

VF 060000 G TIMOUT= 000024 G TS$SEGL= 177777 T4EXT 043702 WRSEQE 033410 G 

CMD 032707 G TKIP = G TS$SUBN= 000000 T5 043714 G WRTOE 033466 G 
RESPBF 002570 G TKIPAD 047722 TSTAGL= 177777 TSEXT 044350 WR1 023772 G 
REWOMD 032675 G TKIPSV= 000010 G TSTAGN= 010033 T6 044362 G WR2 024035 G 
RNGSTP= G TKSA = 900002 G TSTEMP= 000000 T6EXT 045174 WR3 024071 G 
RSPADD 023352 TKSASV= 000012 G TSTEST= 000012 17 045202 G WR4 024122 G 
a 002574 G TKUNT 047751 TSTSTM= 177777 T7EXT 046014 WRS 024147 G 
RSPEND 003004 G TKVEC = G T$TSTS= 000001 T8 046022 G WR6 024211 G 
RSPRNG 003004 G TKVECT 047737 T$$AU = 010014 T8EXT 046734 WR7 024214 G 
RSPSAV 023040 G TOUT 002330 G TSSCLE= 010012 T9 046746 G WRB 024265 G 
RSPSTP= 0CO104 G TRAP4 036054 G T$sDU = 010013 T9EXT 047150 WRO 024342 G 
RSPTO 023402 TRP4FG 002276 G TS$HAR= 010031 TOFLAG= sseea0 GX W1 033322 
RSTVEC 036266 G TSTXEX 047620 T$$HW = 010000 UAM = 000200 G XLOCPR 002476 
SAEXP 002314 G TXFER = 000005 G T$$INI= 010011 UNERLG 023372 X$ALWA= 000000 
SCCCMD 032663 G TSARGC= 000002 T$$HSG= 010004 VECTOR 036316 G X$FALS= 000040 
SCTRLC 002342 TSCODE= 026004 TSSPRO= 010002 VEC4 = 000004 G XSOFFS= 000400 
SFPTBL 002212 G TSERRN= 000033 TS$SRPT= 010005 WRBUF 003036 G X$TRUE= 000020 
START 040672 
. ABS. 062150 000 (RW,I,GBL,ABS,OVR) 

00 OO1 (RW,I,LCL,REL,CON) 


0000 
Errors detected: 0 


see Assembler statistics 


Work file reads: 353 
Work file writes: 347 


Size of work file: 34208 Words 
Size of core pool: 19402 Words 


( 134 Pages) 
( 74 Pages) 


Operating system: RSX-1LIM/PLUS (Under VAX/VMS) 


Elepsed time: 00:18:51.24 
CZTKAS .BIN,CZTKAB.LST/-SP/CR=SVC4OR.MLB/ML ,CZTKAB. MAC 





